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ABSTF^ACT 



This renort ^iescrih>es t^e proorar? description of an 
interactive araohics packaao interfacinq the Vector Gen- 
eral Graphics Display Unit and a Oinital Fquipment Cor- 
poration PDP-11 /BO corrputer. The orogran was written in 
the L -p r on r amT i no 1 annua oe and desioned to t^o used in the 
multiproorarminq environrnnnt of the UlMlX Tirresharinq 
oreratino system. Include ci is a (jescri c tion of the Vector 
Generalf operating system modifications/ device driver/ 
and interface routines. 
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irnRonuc i ion 



This rnsnual is the proorerr descrifUion for an inter a c-* 
tive Graphics packaoe interfacino a Vector Gerieral Graph- 
ics Display Svstef^ ano a PDP-'ll/SO user. The Vector (Gen- 
eral Graphics Display System (vector general) is an in- 
teractive Graphics cathode ray tube (CRT) oisnlay that is 
connected to the P DP -^1 1/SO ccmuter via a rroaified DPll^B 
interface. The fjisolay interacts with an on-line user hy 
Displaying pictorial inform atior'> on the surface of the 
cathode ray tube and by acceotino inputs from external 
control '"devices. The inrnjts are requested and recessed 
t'y Como u ter proararrs that alter and maintain the cutf^ut 
picture tieino presented to the user. 

This rramnal assu-mes tnat the reader is familiar with 
the C-orogrammina lanouane and the UNIX operating system. 
The terminolociy used herein without explanation refers to 
the features and registers in the display Ljnit. A more 
detailed description can t?e fourid in the Vector General 
Graphics Display Unit Reference Manual (VG 101 056). A 
user’s manual is puolished separately. 

The software design can be divided into five major 
c a t ego r i e s : 

1 . f/ o (f i f i c a t i o n s to UNIX 
2 ^ System Routines 
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e m c r y Allocation 



^ . User interrupt K o lj t i n e s 
5, User Interface Routines 

The renainino sections of this manual (3escrit;e these Pivi- 
sions* References are repeatedly made to object iistSr 
object buffer lists^ and element lists. Those formats can 
be f o u d in A q p e n d i x A . Many external global v a r i a b 1 o s 
are used by the various display routines. Those variables 
are d e s c r i d e d in A r p e n o i x R . The many ” o e f i n e s ” are d e 
tailed in Appendix C . 

Ihe General desion for the display software is such 
that all routines^ defines^ and external names (Ui\IX 
modifications and system, routines excludeo) are archiveo 
in a system library^ /lio/libv.a. The user can then in- 
clude this file at compile time and have access to the 
entire display software for his use. As a result# the 
convention has been adopted that all routines and Global 
variables begin with "vo”. This avoids collision of name 
definitiof'. if the user avoids names starting with ’'vg”. 



I I . RODIF ICAl IQUS TO UNIX 



The memory allocation scheme of UNTX had to t)C modi- 
fied to per mi it the Vector General Graphics Display System 
to access the display list. A real-time system call# 
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r t i rri o ( ) / has o e p n added to m a ko the call inq process; real- 
tirre t>y relocatino the orocess continuously within a 
thirtytwo thousand three hundred sixty-eiqht t')yte memory 
block. Ihe rr^e^ory allocation of the r) roc ess is riot al- 
loweci to cross a rreniory ackiress that is a nnultif'>le of 
thirty-two thousanci three hunri red sixty-einht. This al- 
lows the vector qeneral oisolay to proqran^matically aci- 
dress any of the thirty-two tfiousano three hundred sixty- 
e i o h t n o o r y a d r:j r e s s e s without r e s e t t i n the e x t e nci e ri 
memory bits. The rtinneC) call also sets the orocess 
priority so that the op^ratinq system will not swar'* the 
process onto the disk. This locks the orocess into a 
fixed r'-emory area. The real-time process can then ovnarri- 
callv nodifv' the display list while tt^e vector cien^ral is 
continuously accessing the same display list via its 
direct merrory access channel. 

Because of the recuirement to lock a real-time process 
into a fixed memory area/ the operalino system perriits 
only a limited number of simultaneous real-tin-' e processes. 
If the required memory area is allocated to another non- 
swapable process or the maximum nurnt)er of real-time 
processes has been previously allocated/ the requested 
process is not made real-time and an error is returned to 
the caller. 
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SYSTfy RouTiNf:s 



111 . 



The vector aeoeral has been diviocd into six minor 
devices. This simplifies the communication t^elv^een the 
user and the device oriver. Lach minor device has associ- 
ated vjit^i it a fl^Kj that is set in response to the user’s 
oc>en() command. vSir^ice the vector aeneral is a dedicates 
device^ any attempt to share the vector general between 
users or use the vector general wit fi out oneninc all minor 
devices will result in an error to the caller. After all 
six minor devices have been opened ^ a single vector gen- 
eral systern flaq^ voloc<f is set. Ihis system lock is 
checked prior to any read or* write operation. In addition 
the process is made real-timer the user process number is 
retained in vgorocr and tre display is flagged as idle. 
The user process numner is used to pass the vector general 
interrupts to the user via osionalC). The aisplay icile 
flag allows the initial is play list to start ttie vector 
general out prevents subse^.^uent display lists from aonor- 
mally terminating a previous display list. 

Initialisation of user controlled paran^eters is usual- 
ly the next reouirement. l‘Jhen the user issues a write() 
command via minor device twor VGCNTKLr the contents of the 
user’s buffer is interpreted as the refresh reference 
count. Inis determines the number of vector aeneral frame 
clock interrurUs perroitted before reinitialisation of the 
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a \ so] ay list 



The vector qenerdl subroutine stack option oerrits 
accessino non’-ccn t i ouous oi splay lists, tiowever/ the vec- 
tor general must have the rrernory ad cress of any on- 
contiguous isolay lists encoded within a coniiouous 
displav list. Ihis requires the user to have access to 
the real PDP-11 remor\' ad cresses of his disolay lists. 
The maooino of user space to real rrienory ad cresses is 
a c c o m f.) 1 i s h e d t ; y the use r * s i s s u a n c n of a w r i t e ( ) c o r m a n o 
folio weo by a reaci() com man o‘ via minor device 7 e ro r VG. 
The vv r i t e command stores tre real PDP-11 memory adcJress of 
the user buffer in the variatile vqaadr. The user’s read 
cornffi and Passes the value of the real PDF -11 rrerory address 
to the user via the o asset) routine. 

iVhen dynamically mocifying display lists/ the memory 
a cJ dress encooeo in a display must often be converted to a 
user space addf'ess for referencino a user’s displav list. 
This capability is orovicied by a reed() comma no using 
minor nevice five/ VGC’.-VT. Tne base block number of the 
user’s process obtained by the vostrategyC) routine is 
passed to tf'te user via pi asset). 

l^hen the user has created the display/ he must pass 
the address of the display list to the vector neneral. 
The user’s v-jrite() com mi and usinvp minor oevice one, VGDISP/ 
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initial 1 z e ci 



the routine vostart() sends the aodrf'ss to 



the vector general ana starts the vector general *s ope ra~ 
tion. If the display has bnen initializec^^ the new ad- 
dress in Liaddrl represents a new ciisnlav list to be used 
after con^pletinc'i tee active display list- 

The vector general of’>erates i no e pen dent of the user 
process after beinci aivnn a display list- However^ con- 
0 ^ uni cation with the systen routines is rnaintaineo via 
interrupts. A frame clock iriterrupt signal is generat('(j 
every milliseconos and a device interriipt is a e' aerat- 
ed whenever the user or^erates one of the enableo peri- 
pheral oevices* The frame clock interrupt increments a 
counter until the counter equals the refresh rc^ference 
count. ^t that time the display is reinitiated t)y a call 
to v q 5 t a f' t ( ) . 

The device interrupt handler passes the interrupt to 
the user via signal numper two or fifteen. All device 
interrupts except the AS (^11 CI\!TRL. T character are passecJ 
to the user via signal fifteen. The ASCII C^^TRL T charac- 
ter inr>ut via the vector general keyboard is interpreted 
as a control key terminating the Process^ causir^q thn 
display to be cleared^ and notifying the user via signal 
two. Occasionally/ the user may desire the CRTl'^L T char- 
acter as data. This is provided by input of the FSC char- 
acter from the vector general keyboard. This results in 
the next interrupt beino sent to the user rooardless of 
the type or content. Each device interri.jrU also causes 



the values various vector opner'a! reoisters to be ex~ 
tracted and stored in vqbufll for transfer to the user. 

The transfer of tne vector genf^ral register values to 
the user can be accornolished in several different ways. 
The most common is in response to a device interrupt. The 
user can acquire the interrupt state of the vector general 
(except the dial positions) issuing a read() conn^anc 
using minor device one/ VbOlSP. The contents of vgbuf() 
are passed to the user via the passc() roiitin*^* The 
user’s reaciC) command with niinor device twO/ VGCdT^'^L/ will 
force an uodate of the vobuf[3 nefore passing the values 
to i be user. W h e r'j r i n o r device throe/ V G Fd j 3 .\ / is used in 
a read operation/ the values of the fu ruction switches are 
updated prior to senoino vgbuf fj to the user. VGDIAL/ 
minor device four^ extracts the values of the tor. dial 
positions before trans'^ission of vobuf[). The vector Gen- 
eral oial positions are acouired via a separate read() 
command because sixteen microseconds are reouirod to read 
each dial Position to the full t v-j e 1 v e t: i t o r e c i s i o ri . 

The vector oencral’s P-t')it inter ruf'>t is not utili^'od 
in this software interface. Therefore/ toe P-t". it inter*- 
rupt handler is an empty routine. 

The source cocie for the system routines is maintained 
in /usr/sys/dmr/vodrvr.c. A cooy of vgorvr.c is included 



as A D p e n ci i X D 
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A, FIXtD MEf'*‘ORY ALLOCATION 

The user space rrerrorv allocation for the vector oen- 
eral reoisters ar-^d the picture display list use an 
unor'thodox technique to obtain sequential n-temorv loca" 
t i o n s . All t t'j e i n t e o e r v a f' i a b ] e s d e f i n e ri in the file 
V q r e a . n c o r r e s p o ri d to the n a rr e d vector c ) e n e r ch 1 r e a i s t e f' s . 
The order of the aria hies is the order in which the 
values are read frc^ the vector oenrral, because the 
loaaer ass ions variables sequent iallyr this t echo i cue 
allows the variables to be r e f o e n c e o by i n c r c m e n t i n q an 
address pointer without r e q u i r i r'^ o a s t r u c t u r e definition. 

The file vgsys,h contains a siniliar sequence of ir^- 
t e Q e r v a r i a p 1 e s used os t e display list for initializing 
the p i c t u r e p a r am ^ t e r s . L a c h i n t e c:? e r v a r i a b 1 e of this 
file is a vector general com n an o or a vector general data 
word. The order of the variables cannot be chanced 
without affect! no the operation of the vector general. 



R, fUNARLC MEN'.ORY ALLOCAIlUN 



The arrays and vectors that directly limit the size of 
the interface data structure are defined in the files 
vqqlob.h anci vqobj.h, 'A hen specific applications reouire 



1 ? 




il I? 




tl^e interface data structure to do a1lerec:if the (define 
state fronts used to deter ^line all arrciy and vector sizes 
are locate a in vac;jef,h. This permits any of the system 
oarameters to Pe modified by referencing a sinule file. 

V. LiSL^^ JNILK^RUPT RQU TINTS 

A * I N I t R K U 1 H A N 0 L F P ( v a a o i v ) 

The basic i n t e r r u o t handler^ v cj d p i v ( ) / is called in 
response to siona) fifteen from the system cievice intf'r- 
rupt handler. lo ceter'mnne which vector cjeneral device 
caused tne interrupt/ vodoiv() obtains the interrupt state 
of the vector general via the user interface routine 
vqpio(). var>io() transfers the values of eiqhty-thr^e 
vector oeneral recnsters into eiuht y -three c o n t i o u o u s 
worcts of mer^ory starting at the addf'ess of voefsl. 1he 
value of the priority interrupt reouest rcuister (P]P) can 
then be examined to determine the appropriate interrupt 



hand e r 



R. KtYbOARD Cf^ARACTtP INiTERPUPT HA^^jDLEP (vqkpiv) 

The keybo a rrj character interrupt handler/ vqkpivC)/ is 
called when the PIK bit of the Plf^ renister is set. The 
ASCII keyhoarfi cha^'acter/ vokbr/ is r:> laced in a circular 
Queue/ vQkoue/ and the input character flap/ vcikptr/ is 
incremented to the ne^t cell in the Queue. A character 
input flao/ vakflao/ is incremented each time a character 
is input. The routine vaqetcarC) uses this flag to deter- 
mine if a character has oeefi input. 

b'henever the ASCII character CiniTPL P is cJetected/ 
vqkaue is cleared ano the flaos vakflao ana vokauofl are 
reset to zero. This effectively clears the ir^out Queue of 
all previous characters. 

C. manual INIEPRUPT HANDLER (vqmpiv) 

Ihe manual interruf'>t pivot/ vompivC)/ handles the PIS 
interrupt from the vector aeneral. The sole action of the 

inter'rupt hanriler is to increment a counter/ vqmanint. 

This counter may be interrogated and cleared i)y the user. 

D. LIGHT PEN INTERRUPT HANDLER (vqlpiv) 

The light pen interrupt hancfler/ vgIpivC)/ is respon- 



sible for both the light pen interrupt (PIP) and the light 



pen 



sense switch (SfM) interrupts, fioch interrupt call to 



this routine must oe nrocesseo and cleered oefore another 
light pen interrupt may oe accepted. For each accenteo 
interrupt the folio wi no vector general reaisters are 
stored in successive words of volpbuflJ: 

Priority interrupt register (PIP) 

Instruction register (IP) 
o r d count ( a C P ) 

X, Y/ L coordinate registers i <P r VP/ respectively) 

F’ e n resolution byte ( P F » i R ) 

Whenever a light r e i n t e r r u p I o c c u r s and the H g h t 
pen sense switch is processed/ the counter vclr>sflg is 
incremented. Ihe user is m sponsible for the use of this 
counter. 



E. f^RGCLSS TER«*'INAT lOP’ POUIIivF (vocrash) 



vqcrash() is called in response to 
vector general is closeo via voter m() 
t e r m i n a t ed . 



signal two. The 
a n ci the process is 
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USFR INIFRFACf ROUTINES 



The user interface software has heen desiqneo to n^ake 
the detaileci o Deration of thn vector genera) transparent 
to the user. However/ the user shoulo t'»e familiar with 
the data structure constructs used to i mo lament the l^ter“ 
f ac e . 

The basic concept of user interface* software is to 

defif’>e high level constructs v.hich the user int(^rface 

routines convert into vector general compf^nds. Tnere" are 
three classes of constructs defined: objects^ elements/ 

and the r^ictcire^ An object is the lov^est level construct 
which can be a i s P I a y e a a I o n e e E. a c h object is independent- 
ly rotatable/ sc a la ole/ and translataole into any r^ortion 
of a thirtv ir'ich t)y thirty inch picture space. An object 
can he as laroe as fifteen inches c>y fifteen inches and t'e 
r o t a t e ct or p o s i t i o e d to the extreme limits of the p i c t u r e 
space w i t El o u t distortion to any of the r e m a i n i n visible 
por'tion, E-ach object is comoosed of one or more indepen- 
dently liqht pen hookable elements. An element is com- 
posed of a series of user drawn imaoes or characters en- 
tirely relative to the untransformed image space of its 
object. An object can be ciefined unrotated in suer a way 
as to fill the entire object soace and tEien be scaled/ 
rotated/ and moveo so that the image space is the ap- 



propriate size/ is viewed from the appropriate aspect/ anq 



is in r^pnropriate area of the picture. The picture 

defines the picture sc a In and screnn coordinates for all 
objects. Fioure 5-) provides a oraohic representation of 
the relationship between each construct. 

Thp user is resf'jonsible tor the oeneration ano content 
of each elerrent. Prior to its inclusion within the 
d i s p 1 a y 1 i s t ^ the u s r m u s ^ t i ) 1 e * i c t) 1 e n e rU with the 
necessary draw and n^ove co^nands. In aoditior>f the user 
must provide three unused woros succoedino the draw -move 
commands. These three v/ords ar'e useci by the interface 
routines to ensure each elerpm^^ is prooerly terminateo. 
This cr^^vents th^ vector general from iccessirK'5 memory 
outside the display list i^ the user fails to oroof'rly 
terminate the C'fi splay list. 

The c:jeneration and content of e^ll ot'iects and the pic- 
ture is the respcnsic>ility of the interface software. A 
set of routines are provided to link elements to objects 
and objects to the picture, Ovnamic modification of ob-^ 
jects and picture Parameters is also provided. Mow'eve rf 
it is the user’s resronsibilitv to dynamically modify tf‘ie 
element content. 

The follow! no routines are normally transi^arent to the 
user and should not to acces^^ed directly by the user. 
vQCntrl(addr) vqmpiv() 

vqc r ash ( ) vqob j mod ( num , f i e 1 o s / ac t i on ) 

V a c o n V t ( a b P ) v o o i n i t ( ) 



vadp i V ( ) 



vqopen ( ) 



voelpmodCnurn / fielar, ,act ion) vqoicrnodCfieldfact ion) 
vqkpiv() VQoioCh Demode) 

V Q m p i V ( ) 

The routines that are directly accessahle hy the user 



for manipulation ana nodi 
S t r u C t u r e are: 

vqaddel e(aOp/num/ si ze) 
vqt^l ink(type^nu m/act ion) 
vgclock(rate) 
vgcoordCnum/ x , y/z) 
vqcsr(num^val ) 

V Q q e 1 e 1 c ( n u m ) 

V Q d e 1 o t) j ( n u m ) 
vgd i a 1 ( abn ) 

VQc:?elcar() 
vqaet fsivCanp) 

V q q e t 1 n ( a t p ) 



icotion of the display data 

V q i n i t ( ) 

V q 1 o f s e t ( n u m ^ V r3 1 ) 

V q i s c a 1 ( n u nr , V a 1 ) 

VO 1 amos ( app ) 

valpen(type,num,act ion) 

V o m k o b j ( ) 

V q c'> i c t u r e ( ) 

V o p o s t ipx , py ) 

V q r'> s c a 1 ( v a 1 ) 

V q r o t a t e ( n u m , X f y / 7 ) 

V' o t e r n ( ) 



A. SUf^POKTIMG POUlIbLS 



The function an<i operation of the 
vqd piv()/ vqkoiv()/ vqlpiv()/ and vgmr) 
cussed earlier* See section Iv for a 



routines vqcrash()/ 
v() have t)een dis- 
discussion of their 



f u n c t ion 



Picture Definition 



Jump to 
vgobjlist 





Object Buffer List 




call 

object n 



jump to 
vgidle 



call 
element 1 
call 
element 2 



Object 

Definition 




r i qu re b” 1 . 



Data Structure of the Disolay Interface. 
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!• Get ^eol ArMross Ho u tine (Vvocntrl) 



Since the vector aeneral uses a DMA channel tor 
display list accessr all noncontiguous display lists rrajst 
be linked Py a real ado res s at the ooinl of discon- 

tinuity. Ihis routine ta^es the contents of the input 
parametef'f addr^ and converts it to a real I’D P -11 adoress 
in a forrr*at accer'>taole to the^ vector general. The a o cress 
is passed to the system routines by the routine vgr>io(). 
The same routine is called to return the real address in 
the V a r i a b 1 e r a ci6r , The returned address is not accept- 
able to the vector general. The bit manipulation neces-- 
sary to convert the real address irUo the vector general 
fT: e m o r y a fi o r e s s r c q i s t e r t A H ) format is shown in Figure 



? • Get User So ace Address Routir.e (voconvt) 

The interface routines maintair^ no recoro of the 
user’s element addresses. Therefore^ when a disr'jlay con- 
struct is modified; the user soace address of the elements 
involved rrust be ot>taine(f* The ^"*AR format adoress found 
in the active oisolay list is converted lack to a user 
space a (Kir ess by this routine. The contents of the param- 
eter abp (a MAR format address); is first converted lack 
to a real PDF^-11 address (see Figure S-2). Since the 
display process is real-tiir-e and locked in memory; the 
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base address of the nrocess rennains constant 



A coll to 



\/qoio() returns the orocess hloc^ number in the variable 
l:>ase. The block nunnt)er is then converted to th^ orocess 
base address by multiolvino by sivtv-^four (sixty-four 
bytes oer block). The difterente between the orocf'ss t:)ose 
address and the real pr)P-ll ad^iross is the user snac^^ 
adciress offset by thn size of the user vector. The user 
vector is a structure containino all the nor process riota 
that does not neori to bo r<=^frrenC0vd while the procc'ss is 
swapned. Sui'> tract ion of the user vector offset yields the 
user s p e c e o d d e s s . 



pnp-1 t bOPD 

A 7 6 A (\ 7 ? 1 0 




The nuT-bers within the vector oenpral word are the bit 
numbers of the PPP-^ll word. 



Fiqure b-P. PDP*-11 to Vector General For rat. 
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^onify Fler^ent ^ou^^ne (vn^^lemod ) 



The only dvorimic system mo^'iifications that can be per- 
formed on an element is to set or clear the blink mode and 
liqht oeri hookabilitv. 

Tt)e element defined t^y the contents of the parameter/ 
num/ is located t:>y a sequential search of elements. The 
name bvte field is compared with the input parameter# num. 
If a match is founci# tno value of the field bits arc 0P*ed 
or AdO’ed into the element oeoendinn uoof^ the value of tiie 
parameter# action. If action is a /erct the fielci bits 
are OP’ed into the eien^ent. If action is a one^ the com- 
plement of the field bits are AND'ed into the element. 

Ihe routines P0ssil)le return cooes are: 

0 - iMormal return 

- Ihe element oescr^bed in the inout parameter cioes 
not exist 

- Ihe value of the element r'lurnher is non-positive or 
Greater than two hundred fifty-six# the maximum 
number of elements Permitted by the name byte field 
of tf^e vector General. 

The error codes are chosen to be consistent throughout all 
the interface routines. 






a 



Mpdifiy Ohjevtt Routine (voob j m o n 1 



(Object m o a 1 f 1 c a t i o n is more c o n • o 1 e ^ than the element 
mcdificat^oof because of the number of parameters that may 
be varied, 1he str'ucture memberf vgnurr, of each object is 
c o mi p a r c d with the i n u t parameter', r- u m , until a m a t c is 
found. There is no reouirement the ot>ject exist in the 
active ciisplav list. If, however, the object is part of 
the active (fisolay, a cor-y of the oL:ject is maoe into 
vQworkf'ufl), vov%orkbuT(] is then linked tc the active 



d i s p 1 a V 


list while t n e 


oral 


n a 1 


object is me gif 


1 ec . 




The 


bit values of 


the 


input paramoter, fi 


elds. 


o e t e r - 


m i r'l e w r. 


ich parameters 


are 


t o 


be n o a i f 1 e g . 


The 


octal 


n u m; b e r 


represent ino 


the 


b 1 t 


position of f 


i e 1 d 


a n 0 the 



r e s u 1 t i n a o p e r a t i o n is as follows: 

0 - Use the contents of voferotf) as trie new values 
of the rotation matrix, 

01 - The value of vof<csr is taken as the new value 

of the coordinate scale register, 

Od - The values of vdf<-dxr, vqf^dvr, an<j vaf ed?r are 
assumed to be the current values of the X, Y, and Z 
cooroi nates rescect i vel y. 

010 -- Ihe new intensity offset value is obtained from 
V g f e 1 o r . 

020 - vgf^isr is the new value of the intensity 
scale. 



OqOO 



The light pen fialt interruot is set or cleared 



deoendinq unon the valu(^ of the input pararr-eter 



ac t 1 or^ , 

OlOOO - Display blink for the object is set or 
as determineci ty the value of action* 

0 2 0 0 0 0 - The light e n interrupt is enabled or 

riependinq uoon the value of action* 

After all rooifications have been corrolotedf t 
ficd display list is again liriked to the active 
list. 

The P ossicle return codes are: 

0 - t-Jorrral return 

-1 - Ihe value of the object number para rr-e ter 

Positive or Greater than f'v 0 6 J ^ the m a x i ^mj p n 
objects. 

-2 Ihe ot)ject cescriced in the input nararre 

not exist. 

S , Object I n i t i a 1 i z a t 1 o p Routine ( v o j n i t ) 



This routine is called as Part of the proqrarr 
ization routine^ voinitC)/ to initialize the otj)jec 
tures and link the corrponents of the dist'Jlay list, 
no objects are inclucieo at program initial izati 
vqidle is linked to the display list. voidle is a 
general HALT instruction used to keen the vector 
from accessing data oLitside of the defined display 



cleared 

d i s a b I p (i 

he modi-* 
display 



is non- 
umber' of 

ter c:j o e s 



initial”* 
t struc- 
Since 
on , only 
vector 
q e n e r f i 1 
1 i s t s . 



bach object is intialized with vector general instructions 



permitting tHe followina dynamic n-odificaticns: 



Change the nine reoister rotation matrix 

Vary the twelve bit X, y, and Z coorciinate rj is placements 
Modify the five bit intensity offset reoister 
Change the twelve bit intensity scale r e o i s t e r 
Each opject is treated as a suti routine of the object 
buffer list/ vaobjlistlJ* Therefore/ the last executable 
instruction of each objr 
Since t f i e i n i t i a 1 i z e d o t) j e c 
element of each otjject is 
s t a c i n s t r u c t 1 o n ( 0 ^ 0 1 6 ) • 
vector o e n e r a 1 to o C' t t 
VQOb j 1 i 5 t [] • 



i s 


a return 


S u b r o u t i n e 


j u m p . 


has 


no elements/ th(? 


f i r s t 


n i t i 


a 1 i z e o to 


a 1 o a ^3 MAH 


from 


This 


instruct 


iof" causes 


t fi e 


next 


display 


instruct ion 


f r om 



6. Open Device Routine Cvoonen) 



This 


rout 1 n e 


ooens 


all six mi 


nor 


file de 


sc r i p t o r 


s for 


later use 


b V 


The file 


aescriptor- var 


i ab 1 e s for 


the 


ices are 


: 








V g c m d 


- minor 


rie V i c e 


z ^ r' o 




V q d i s p 


- minor 


device 


one 




vgc t r 1 


- minor 


device 


t wo 




V g f n s w 


- minor 


device 


three 




vgd i a 1 


- minor 


device 


four 




vgc n V t 


minor 


device 


five 





devices 
V o p i o ( ) 
V a r i o u 



and saves the 

and V g t e r n ( ) » 
minor aev- 



If a device 



Cannot be opened an error message is printed 
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1 C t u r o '*'1 o d 1 f 1 c t 1 o n o u t i n p ( v ri n i c m o d ) 



IV hen the user desires to modify the blink or light pen 



modes 


o f 


the 


p 1 c t u r e f t h i 


s routine performs the modif 


1 c a - 


t ion. 


1 f 


b i t 


nine of the 


input Parameter/ field/ is 


se t / 


the b 1 


i n k 


T, 


ode of each 


element is modified accoroina to 


the va 1 


ue 


0 f 


the input parameter/ action. Li it eight 


a n (.1 


t h i f' t p e n 


o f 


field affect 


the liQht pen hooka bility of 


the 


picture 













8 . Pit) 


F X ec u t 


ion Rout! 


n e ( V g p i o ) 








VQP i o ( ) 


is cal 


led by a I 


1 routines 


nee d i n g t o 


C o m m u n i - 


cate with th 


e vector general. Ihe inout pararr^et 


e r / 


bp , is 


the adriress 


of t Fi p 


b u f f e r 


u s e ri for 


the read 


o r 


w r i t e 


ope r a t i on . 


T hf e 


second 


p a r a m e t e r* / 


mode / IS 


a 


coded 


descript ior^ 


of the 


des i red 


operat i on. 


The value 


and 


P u r 


pose of each 


mode 


IS as f o 1 1 o V-; s : 








1 - F^eaa operation using 


m. 1 n o r d e v i c 


e ? e r o ( Cd ‘ D e fU' 


AD) . 


Used 


in conjunction 


with mode 


(d to convert 


a user 



space address to a real address. The t)uffer/ bpr is 
a pointer to a recerMor for the real aoaress. 

2 - drite operation usino minor device ?ero (Cf^'Oev’jRITE). 

The address of bp is sent to the system routines for 
conversion from a user space address to a real ad- 
dress . 

3 - Read operation usirio minor device or^e (DISP^'f^bAD). 
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This 



reaa operdtion will return the CMohty -three 



vector general register values as storeo bv the sys- 
tem routines to t e e i o h t y - t h r e e words b (? a i n n i n g at 
address bp. Normally this mode is used to return 
the i n t e r r ci p t r e n i s t e r value. 

5 - R e a a operation using minor device two ( C 1 R L ^ h A D ) . 

Sirrilar to rr. oce three excent the current Vcjlues ot 
the vector general remsters (not tt)e dial values) 
are extracted from the vector General r^rior to send- 
ing them to the caller. 

6 ” write c n e r a t i o n u s i n c^j m i n o r device two ( C T R L e /' R I T ) , 

The contents of tOr refresh rc)tef is sent to the 
system routines to define the refresh reff^rence 
count . 

7 - Head o r> e r a t i o n u s i n c:j m i r^i o r' device three ( F f 3 r. e R F A D ) . 

Similar to mode three except the current values of 
the fur'iction sv% itches are extracted from the vector 
general prior to the read operation. 

8 - Unused 

R - Head operation using minor device four (DlAL<-HtAD). 
Similar to mooe three except the ton ciial position 
values are extracted from the vector c general prior 
to the read operation. 

NOTt.: The oial positions are analog devices. The 

conversion from analog to digital reouires sixteen 
microseconds rer dial. 
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1 





I 



Unused 



10 - 

11 - K e a d c o e r a I i o n u s i n a minor device five ( C f\! V T <- R f_ A D ) . 
This operation is usea with the real to user space 
address conversion. The buffer Pointer, , is the 
receotor for the block numner reoresentina the t;e- 
oinnino of the real-time process. 

\ - Unused 

Prior to any read or write operation the value of bp 
is checked for 2 oro. The caller is orevented from rea dine.) 
or r i t i n q u s i n o a d ci r f > s s zero. The read or- wj r i t e o p e r a - 
tion using address ^'ero can cause the op era tine system to 
f a i 1 . 



B, USFP ROUTlf.'bS 

1 . Add blement Pout i ne (voadoele) 

A user defined clement if; linked to a p r e v i o i; s 1 y a e - 
fined object this routine. The a cj dress of the user 

element buffer is the parameter, a bp. The input o ana me- 
ter, size, is the number of bytes in the user's el6.*^ient 
bu f for. 

NUTE: ]he user is required to provide six unused 

bytes with each elemem. The six l:»ytes (three 
words) must succeed the draw-move commancis. 
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The value of s i ^e is a byte coiint so as to follow the con- 
vention established for system calls. The b-yte 
count must also be even to satisfy the word anoressing 
reaiiirement of the vector general. 

If the byte count is even ano oreater than six, a 
sequential search of all object structures is initiated. 
The structure member, von urn, is comnared v/ith the inrnjt 
oarameter, num. \^vhen a match is founo/ a search of that 



object ' 


‘s elements is t)eoun. The element search is con- 


d t ) c t d 


in increments of seven because seven words of the 


o t) j e c l 


structure are reouired to link each clement to the 


object . 


* The search key is the word havino the name byte 


of the 


user element. The search is completed when the key 



word is zero^ before link inn the element to the object, 
iUe six unused bytes (three words) of the users element 



buffer 


are assigned as follows: 


kM 0 r d 


one - Terminate character mode (0?^) 


o r d 


two - Termincite vector mode (OIS) 


1‘^ o r d 


three loaci MAR from stack (OU^Olo) 



The element to be added is alwavs apo ended to the pre- 
viously linked elements of the object. Therefore, the 
word following the new element is set to a load ^;AR from 
stack instruction (O^l^Olo). The seven words 1ini«^ino the 
element to the object are next assigned as follows: 
load RMR (0^00?^) 
element nLjmber 
load KAR (OqooOS) 
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value (0^o?01) 



Store ^^AR ) n stack and rrark (07^?lb) 

Load MAh {tV4 0 0 1 o) 

Address of clement in [‘''AR format 
The value placed in the name t)yte field of ttie ele- 

ment is returnoo to the <jser. 

Several conditions could cause an error* The possible 
error codes and their mean inns are as follows: 

-1 - Ihe value of the otviect number parameter is non- 

nos itive or qreater than NObJ^ the maximum nurrc^er of 
objects* 

^ - Ihe objec:t oescrioed in the inr^ut parameter dof'S 

not exist*- 

-3 - Ihe number of previously assic^neci elements eoual 

b'LLL/ the maximum numoer of el^^rnents per object* 

- ^ - Ihe value of the q I o b a 1 variable# e 1 e n u m / is 
Greater than two hundred fifty^six# the maxim, urn 
number the vector General name byte register can 
com t a i n . 

” The user element l)uffer contains less than six 
bytes or the byte count is oc^d. 

-6 - Ihe user element buffer address is ^ero. 

? * Acid Object Rnutine (voaddohj) 



The object refer c?nceo by the parameter# num# is to be 
added to the active display list buffer, vgobjlistl). The 



I 



LiMIIIII 








I 






object to n e ci o i e d is 1 o c a t c' d by s e a u e n t i rj ] 1 y s e a r c ^ i n n 
the object structure, '/.hen the structure member r vc^nun. , 
matches the in out r a'rie t e r / num^ the oesired object h.'s 



been founn. 


1 h e 


address of 


the object is t h e 


r 1 ac on in 


the V a r i a b 1 


e p t r 


. f\ p X t the 


e n ri of the active 


d i 


sM a y list 


is f o u o by 


mult 


i o 1 y i r’* o v q o t > j 1 i s t ( iM by t h r e 


• 


This C' r o •• 


V i d e s the 


ease 


for insert i 


no the object. T h 


r ee 


wo nos are 


reouired to 


1 i < 


the object 


to V c) o h j 1 i s t ( ) . 


1 h e 


t a s n is 


the last of 


t h e 


three w o r a 


q r o ur> • The t h r (» e 


word q r 0 u P is 



a s s i q n e o as follows: 

Store A H in s t a c K a n m a r' k ( 0 7 a ? ] 0 ) 
L o a o f-' A K ( vt ^ 0 0 1 6 ) 

A d d r' e s s of the object \ n A R format 



The interface routinr's are aesioneci to ensure that the 
objects in vooh j 1 i s t I ) are always compact. T h e r f o r / 
each object a d i i t i o n is at t h end of the r> r e v i o u s 1 y a o d e d 
objects. Since the last 1 i r'l h in v o o b j 1 i s t ( 1 s h o u 1 ci a I w a y s 
to V Q i d 1 e r the V o i d I e 1 i r^i k must be r e a s s i a e d i m m e cn t e 1 y 
f o 1 1 o w i n r.-j the newly added o t'j j e c t • 1 h e instruction s e - 
ouence affect ir^c:) this link is: 

Load KAR (OaOOlb) 

Address of v q i d ] e in A P format 



There are four possible return codes for this routine. 
0 - Norma 1 ret i;rn 
-1 - I he 



value of the object number naran^eter is non- 
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aoim; -- 



« 9^11111111 

I! !| II II II II II 
:i II II II II II II 

* II II II II II II II 
:i II II II II II II 
■' :IH II II II II II 
■ MINI II II II II 




•IE. 
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positive or oreater than the rraximum oumner of 



objects. 

- The object describe^ in the ir'^Dut oare'^^eter cioes 

not exist. 

"'3 ^ The number of previously riefined objects eoual 

' J 0 fU f the rr a X i u !T number of objects. 

^ • D i s r-) 1 a v b ] i n < P o u t i n e ( v o b 1 i n k ) 



The display blink bit/ M L) b / of the C R register is set 
or cleared by this routine. The value of the parameter/ 
type/ determines whether the picture/ an object/ or an 
element is to oe affected. The value of the 
action/ specifies the clear or set operation, 
codes are the same as those of v g o t") j rn o o ( ) , 

^ • Set Refresh P a t- p R o i; t i n p ( v c j c 1 o c 

The routine vqcloc<() is the only routine 
control Parameter to the system routines. Thf' 
the parameter/ rate/ (the refresh rate in hertz) is con- 
verted into an integer number representino the number of 
8.33 milliseconcj interrupts permitteci before refreshinc^ 
the clisplay. This integer oust be between zero and nine. 
Ihe converted value is sent to the syste'r^ routines via the 
routine vgpio(). 




sending a 
contents of 
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Chr-^riae Coordinate Poutinp (vocoord) 



Tno values of the anci Z cooroinate displaccnnerUs 



are updated 


from the input 


parameters 


t y this 


routine* 


The X , 


y f 


and z input parameters 


are 


placed i 


n v(i f <* d X r / 


VO f eoy r f 


a no 


V G f e ci 2 r r e s r> e c t 


i V e 1 y . 


The 


rout 1 n e 


V Q o b j m o ci ( ) 


is then 


c a 


lied to u f.') d a t e 


t h e 


coordinate a i 


spl acement 


val ue s • 


The 


ot')ject affected 


t)Y the 


new 


values i 


s 1 d e n t 1 ** 


f 1 cd by 


the 


input parameter. 


n u m • 









The ranoe of the X, Y, and / cooroinate displacement 
values is from neqative two thou Sana forty-eiaht throuoh 
two t ho Li sand forty'* seven. The return codes for this 
routine are those of vaobjmodC). The return codes for 
this routine are the same as those of vc^ohjrnooC)* 

b , Charade Coordinate Scale Routine (vocsr) 

The coordinate scale reqister of an object is uf>dated 
by this routine* fhe lower twelve bits of the parameter^ 
val/ is assioned to vcfecsr, voobjmoaf) is then callc^cf to 
update the coordinate scale of the object oiven in the 
parameter, num. The return codes for this routine are the 
same as those of vaot)jmod(l. 
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Delete F, lerient Routine (vane 1 e ) e ) 



vSince elen^ents are linkeo to ot^jects Dv aodina the 
ele'Tent address to the ele^ient field of an object/ ti'ie 
deletion r>rocess neen only oelete th^ address link. The 

elcrrient to be deleted is located in exactly the saTc 
'r^anner as in vamodele(). Tn this routine/ now ever/ or^ly 
the oDject con^'ainino the elerrent is rrodified. To orev'^rit 
unwanted holes within an object/ the address of the last 

element linked to the object is assianed to the location 
of the element to be deleted. This deletes the desire c) 
element but leaves a cju plicate cops' of the element in the 
display list. This o u p 1 i c a t i o n is eliminated by c n a n a i n o 

the last active element field to a load f'lAR from stack 

instruction f 0 h h 0 1 6 ) . 

The return codes for this routirie are: 

0 Normal return 

”2 - The element describoci in the input parameter does 
not exist 

- The value of the element pararfieter is non-i'ositive 
or Greater than two hundrea fifty-six, the si?e of 
the vector General name byte. 

6 , Delete Object Routine (vndelobj) 

Deleting an object reouires tfie address link in the 



object list buffer 



vdob j 1 i s t I ) / 



to be cleared and the 



re^ainino objects links to t)0 compacted 



Iho object to he deleted is locatecj by sooiientially 
searchino the ot)ject structures for the object with the 
structure memberr vgnum, nratchinc^ the inout paran'eter^ 
num. The object list buffer is then searched to determine 
if the object is currently in the active ciisolay list. If 
the ooject is current. Iv in the active display listf the 
address of the lost object in voobjlisttl is copied to tne 
address of the object to be deleted. Tnis last object in 
vqobjlistl] is then deleterf t)y a load from stack ir^~ 

struction (0-Ut0l6). The structure momberf vonutr^ is reset 
to ?ero rnakinq the object available for further use. 

The possible return cocies for this routine are: 

0 - i\' o r rr. a 1 r e t u r n 

-•I - 1 he value of the object number parameter is non^- 

positive or Greater than NOHJ/ the maxirnun number of 

Objects. 

- - I h e o t) j c c t c e s c f' i b e d in the inout parameter o o e s 

not exist. 

Get Dial Values Routine ( v g cJ i a 1 ) 



This routine obtains the vector general dial values 
and returns them to the caller. The twelve bit dial 
values are returned to the caller in a ten word buffer 
provided by the caller. Thf' cori tents of the parameter^ 
abp# is the bea inning address of the buffer. 
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C?rt Character Routine (vcoetc a r ) 



1 0 . 



The keyDoaro input flao/ vakflaq/ set by tne <eyt^oarci 
interrupt handler, vqkoiv(), is chockeci. It it is zero/ a 
minus one is returned to the caller. if it is non-zero, 
vpkflaa is decrennerUed anci the value cf vqkauefi is used 
as a pointer into the circular keyboard character oueue^ 
vqkquer to fetch the ASCII character for the caller. 



11. Get Function S i t c h Routine ( o o e t f s ) 



Two vector oeneral reaister words^ vqefsl and vqefs?, 
are returned to the user beoinninq at the buffer, atu3. 
Each t'it position of the returned words is the value of 
one function switch. If a t)it is set/ the function switch 
has been oepressed- The first two rows of the function 
device ar'e contained in voefsl. Ihe last sixteen function 
switches are retained in vnefs^. 

Get Liciht Pen InterrurU Values Poutine ( v o e t 1 n ) 



The values of the followina vector general 
are read sequentially into the buffer abp. 
vgepir “ priority interrupt red i step 
vQ<-ir - instruction rcdister 
vq^-wer - word count from start of display 
vg^xr twelve bit X-coordinate displacement 



rea 1 s t e rs 





I 



vg^yr - twelve bit Y-coordinate fi is placement 
vg<-zr - twelve bit Z“COonbinate r'lisplacemeTt 
vq^penr - one bit pen fn't resolution count 



1 ^ . Display List I n i t i a 1 i / a t i o r'l ( v a i n i t ) 



Ihe vciinit() routine performs all display list ini- 
tiali?ation and rie fault parameter assianmer'it. Ihe user 
process is made real-time as f)art of the cal) to vqoc^enC)^ 
If voopenC) can not make tne process real-time or access 
all the minor oevicesr tf^e user r> recess is terminated 
without further initialization. 

After successfully access i no the vector oenera) rriinor 
devices/ all of the data structure buffers ore assigned 
oefault values and linked to form, a bare nones disr>lay 
system. At this rK)int the display could be run ana all 
interrupts would be processed. 

Ihe folio wino (iefault picture parameters are set at 
display initialization: 

All function switches are cleareci. 

The refresh rate is set to forty hertz. 

The frame clock, keyboard, and manual interrupts are 
enab 1 ed . 

The display is enai>led. 

Maximum picture scale is set. 

Post X anci post Y displacement values are set to zero. 



37 



Wi . Spt Intonsity (Hfset F^outinc (vOTofsot) 

The input parameter/ voW is nlacerl in vqfeior and the 
odject modification routine/ vr^objmo(i()/ is called to 

uodate the intensity offset renistr^r of the object refer” 
enced bv the input naramf^ter/ num. Ifie return codes for 

this routine are those of voobjmodCK 

1 b . bet I n t e n G i t Scale R o u t i n e ( v q i s c a 1 ) 

The input Parameter/ val/ is placed in vgf'-isr ano the 
ot)ject mo o if i cat ion routine/ voot)jmod()/ is c a lie a to 

update the intensity scale register of the OPj('Ct refer- 
enced by the inout parameter/ num. Irie return codes for 

this routine are t t) o s e of v o o tM* m o d ( ) . 

1 5 . Set Function Switch lamps f^outinp (volarrs) 

The four successive words beqinninq at the t>uffer 
address abp are assigned the four vector General function 
switch reoisters vos<~fsl/ vqs<-fsc^/ vqs^fsi/ and vqs<-fs^* 

I 7 . Set Light Pen [, nabln (yoloen) 

The light oen hooka bility of an element or object is 
set or cleared by this routine. If the input parameter/ 
type/ is a ?ero/ the values of the input parameter's/ num 
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and actiOHr are na'^sed to the picture modification 
routine/ vc:jpicmod(). If type is a one^ the pararr.eters are 
passed to the object modification routine^ vaobjmodf). A 
type of two i/^ill rriodify the element/ num/ by calling 
vgelemoaCJ* The return codes are those of the modifica- 
tion routine called. 

1 8 . V a k e C~~ t) i e c t Routine ( V O rr» k O t) i ) 

This routiriO initialwes an object structure for 
disfilay use. before the object can be used» it must t^e 
initialised to the syste?i default Parameters. The default 
parameters are * 

Maximum intensity offset 
Constant ir'. tensity scale 
One-half coorciinate scale 

Zero for the X, Y/ ana Z coordinate cJispl a cement 
Zero rotation 

Same interrupts as set iiy the vain it routine 

Af^ unuseo object is founa by searchina the object 
structure until an otiject is found with a ?ero assioned as 
the structure member/ vc:jnum. The instructions and default 
parameters are assiqr'»ed to the structure and an object 
number is assioned from the qlobal variable vgcurohj. The 
caller is oiven the new object number as a return valiie. 

A possinle error return code is: 
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- Ihe nurnt')er of c^reviotjsly defined object*^ eoual 
N U J ^ the T» a X 1 rr u rr. n Li 'p b e r of objects. 

19. Start [)isr>)ay H^outir^e (vooictur^) 

The oepinnino address of the display list/ vc^selcifsl/ 
is passe<i to the vector qenoral. 

^ 0 . Change 9pst X and Post Y 0 i s o 1 a c err e n t 
t^outine (vorost) 

Ihe lo v.'cr twelve bits of the input oararrcrers/ px and 
py/ are assigned to the vector general register vasepdxr 
and vgs^odyr respectively. 

^ 1 * Change P i c t u e Scale Routine ( v a s c a 1 ) 

The picture scale is changed to the twelve tit value 
of the input parameter/ val. 

2 d . IxQtate pQutine (varotate) 

Ihe inpLJt par a meters x , y , and z ore the radian meas- 
ure of the rotation about the X, Y, and 7 axis respective- 
ly. Ihe necessary calculations to change the nine retjis- 
ter rotation matrix are performed here. Ihe final values 
entered into the rotation matrix represent the tricjjometric 



^0 



values corresnonciinq to the renuested rotation anout 



each 



axis* The rotation matrix of the cU:>ject referenced 
input naraneterf numr is updated to reflect the new 
t i o n . 



2 3. I e r n;i n a t e The Display ( v q t e r m ) 



The 
c 1 o s e d f 
the f i a 



V e c t Of' 


o e r'l e r a 1 


is c 1 (' a r e d r 


the miner 


and the 


t '* r o c e s s 


is made 


non 


r 0 a 1 t i m 


1 interface Crjll 


by the 


user 





de V i 
T 






y the 
ro t a-- 



e s are 
IS is 



APPtMDiX A 

DATA STPLiCTUPe FOPMATS 



Picture [Parameter Forrat 



I r') S t r < j C t ion F u n c t i O n 

L o a cl Lamps 
Lamps 0 - 1 b 
1. a m o s 16-3^/ term. 
Loan Pic Scale 
i c Scales term. 

L o a Post 0 i s p . 

X f> i sp 1 oC emen t 
Y f'lisnlacement/ ter^ 
Load Lit pen enable 
Fnable lit pen , term 
l.oan Lamc'^s 
Lamps 

Lamps terr. 

Load Stack Pointer 
Stack Adciross/ term. 
Load Mem. A d d r 
Object Buffer Addr^ 







term. 



Object buffer Tormat 



In<;t ruct ioa 



F unc ^ ion 



(.f 

r 


7T 

1 


0 ' 
1 


o' 


0 


' 0 
1 


1 

0 

1 


1 

"7 

/ 

1 


t 

1 


i 

R 

1 


] 


1 

o 

I 


1 

0 

f 


1 

a 

1 


1 

0 

1 


t 

() 

1 I 


1 


1 

o 

! 


0 

[ 


1 

0 


1 

0 

1 


1 1 

0 

t ( 


0 


] 

1 


1 

0 

( 


1 

7 

1 


a 

1 1 


1 1 

? 

1 1 


1 


1 

n 


» 

0 


1 

U 

1 


' 1 
0 

1 1 


1 1 

0 

1 I 


1 


1 

h 

1 .. 


1 

0 


1 

0 


1 1 
0 

1 1 


! 1 
0 

t 1 


0 


1 

1 

] 


i \ \ T I 



FJum of objects active 
Store N 'i A in Stack K i’l a r k 

Loan MAR 

Oi^ject I abdressf terrr. . 
Store in Stack t. Mark 

Load M A R 

0 e ject ? AdoresSf terrr. 



J _l _ 1__ J 1 




r 

0 

1 


r 

7 

1 


1 


1 


1 


6 

1 


Store N' A R in Stack & a r 


0 


1 

a 


1 

0 


1 

0 


1 


1 

o 


Load MAR 


— j — 1-. 


! 


I 




1 




J 


1 




I 




0 

1 


0 

1 


0 


0 

1 


0 

1 


1 

1 


Object n Acidress/ term. 


1 

0 

1 


1 

a 

1 


1 

0 

1 


1 

0 

1 


1 

1 


1 

t) 

j 


Load M A R 


1 

0 

1 


1 

0 

1 1 


1 

11 


1 

n 




i 

R 


vqiole Act dress# term. 



"•■s' 



Object Format 



In 


s t 


r uc t 


i on 


F u n C t ion 


o' 


o' 


o' 


o' 


0 


0 


Object M u rn h f> r 


0 


/] 


0 


0 


1 




Load Intensity 0 f f s C' t 




7 


7 


7 


6 


0 


Intensity Offset 


0 


0 


0 


0 


0 


1 


Intensity Scale# tern. 


0 




0 


0 


? 




load Coordinate Scale 


0 




7 


7 


b 


0 


C 0 o r c:! i n a t e S c a 1 e 


0 


0 


0 


0 


0 


0 


X*Coordi nat e 


0 


n 


0 


(i 


0 


0 


V - C oo r o 1 r,a t e 


0 


0 


0 


0 


0 


0 


Z-'Coordi nat e 


0 


J 


7 


7 


b 


0 


o t a t e X / > 


0 


0 


0 


0 


0 


0 


Rotate X/Y 


0 


0 


0 


0 


0 


0 


Rotate X / 7 


0 


0 


0 


0 


0 


0 


Rotate Y/X 


0 


7 


7 


7 


6 


0 


Rotate t / Y 


0 


0 


0 


0 


0 


0 


Rotate V / 7 


0 


0 


0 


0 


0 


0 


Rotate ?/X 


0 


0 


0 


0 


0 


0 


R o t a t e 7 / Y 


0 


/ 


7 


7 


6 


1 


R o t a t e 7 / 7 # t e r m ^ 


0 


a 


0 


0 


2 


p 


Load 0 a rr. n f5 V t e 


0 


0 


0 


0 


0 


1 


t 1 e m e n t N u m t> e r 


0 


n 


0 


0 


0 


b 


o a c:i M C R 


0 




6 


? 


0 


1 


Enable t) i t s # t e rm * 


0 


7 




? 


1 


b 


Store ^ : A in Stack K Mark 


0 


a 


0 


0 


1 


t) 


Loacj MAR 


0 


0 


0 


0 


0 


1 


Element 1 A c) d r # term. 


0 




0 


0 


p 


p 


L o a d Name y t e 


0 


0 


0 


0 


0 


1 


Element Number# term. 


0 


u 


0 


0 


0 


5 


Load C 


0 




b 


p 


0 


1 


Enable bits# term. 


0 


1 


0 


p 


1 


b 


Store MAR i ri vS t a c k ^ N • a r k 


0 




0 


0 


1 


b 


Load f'" A R 


0 


0 


0 


0 


0 


1 


Element 2 addr# terrr. 



0 ^ 0 0 1 

0 0 0 0 0 1 



Load MAR 

ElonnerU n Aodr^ term. 
Load MAR from Stac^ 






I 

I 



PlefT’ent Format 



Inst rurt ion 

I i 1 i ' 

U 0 0 () 0 0 




0 0 0 0 0 0 



0 0 0 0 1 s 

0 0 0 0 ? 0 



F u n C t ion 

User [) e f i n p o Instruction 



User Defined Tern^inate ]nst. 
Terrrinate A]l Vector N^'^odes 
Terminate C h a r a c t e r f o d e 
Load Mar fr onn Stack 
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APPICNDIX B 



GLOBAL VAUIABLES 



All static f^lobal vai*iahles used through the interface routines are con- 
tained in the four files listed here* 



1 o 1) , h 



1 


iiil vgkque [ rnCQUE] ; 


// 


queue holding the last NKQUE 


2 

Q 




// 


A.SC1I keyboard cliaracters 


o 

4 


ini vgs t a c k [ NSl'AGIG ; 


// 


subroutine stack buffer used 


5 




// 


with VG subroutine jumps 


o 

7 

8 
9 


int vgwoi*lU>nf C VGOBJS IZ3 ; 


// 


\v’o rk buffer for s ys mo d s 


i n t vg lpbuf[7] ; 


// 


buffer to hold the VG light pen 


10 




// 


intei'riipt registers 


1 1 








12 


int vgcurobj ; 


// 


current object number 


J3 








14 


int vg idle; 






15 


char vgkflag; 


// 


ke yb o a r d c ha racter flag. 


16 




// 


Incremented when ASCII character 


17 




// 


is input 


18 








19 


char vgkptr; 


// 


pointer to kque location 


20 




// 


receiving tl^e next 


21 




// 


keyboard charac ter 


22 








23 


char vgkque f 1 ; 


// 


kque pointer to the next character 


24 




// 


to be read 


25 








26 


c ha V vgma ii i n t ; 


// 


»))anual interrupt counter 


27 








28 


char vglpflag; 


// 


light i>eii flag. Set when 


29 




// 


a light pen interrupt occurs. 


30 




// 


Nus t be cleared by user before 


31 




// 


a second interrupt will be 


32 




// 


process e d 


33 








34 


char vg Ips fig; 


// 


15 gilt ]>en sense switch flag. 


35 




// 


Set when a liglit pen interrupt 


36 




// 


occurs and the sense switcli is 


37 




// 


depressed . 



38 

39 

40 // system work buffer used, to hold the values to be 

41 // associated with the vector general register commands 

42 



43 


int 


vgf _psc a 1 ; 


// 


p 1 c lure sea le 


44 


int 


vg f __r o t C 9 ] ; 


// 


rotation matrix 


45 


int 


vg f _ i o r ; 


// 


intensity offset 


46 


int 


vgf _ i sr ; 


// 


intensity scale 


47 


int 


vgf __c s 1 * ; 


// 


coord i ua t e scale 


48 


int 


vgf _dxr ; 


// 


X-coo r d i na t e 


49 


int 


vgf _dyr ; 


// 


Y“ c o o r d i na t e 


50 


int 


vgf _dzr ; 


// 


Z— coord i na te 



46 






fl 






I 



I 



I 

< 



vgobj , h 



1 in< v{^elcuum; // current e lenient nuinbei' 

2 Int v^obj 1 is t f OLISTS IZ3 ; // object list buffer 

3 

4 

5 // structure of objects thnt the user has available for 

6 // d i sp lay 

7 

8 struct vgobj 



9 

10 


C 

i n t 


vgnuin ; 


// 


object number 


1 1 


ini 


vg 1 i o r ; 


// 


load i n 1 e ns ity offset 


12 


iul 


vg i o r ; 


// 


i n t e ns ity offset 


13 


int 


vgisr ; 


// 


intensity scale, terminate 


14 


int 


vg 1 c s r ; 


// 


load coord i na t e scale 


15 


int 


vgc s r ; 


// 


coordinate scale 


16 


int 


vgs; 


// 


X— coord iua t e 


17 


int 


vgy; 


// 


Y“cooi'd iiiD t e 


13 


int 


vgz ; 


// 


Z-coord ina te 


19 


int 


vgro t C 91 ; 


// 


r o t a t 1 o n nia t r 1 x 


20 


int 


vgo let ELI STS IZl ; 


// 


d i s p 1 a ole »iie u t buffer 


21 


ini 


vgnoop ; 


// 


no op instruction 


22 


D vgobjC HOliJ] : 

















vgreg. li 


1 

2 

3 

A. 


// 


NOTE: PO NOT 


ALTER THE ORDER 


OF THESE VARl^iBLES 


5 


// 


Tlie 


va riahles j 


11 tills file 


CO I'] 


respond to the named 


6 


// 


ve c t o r ge n e r a 1 


r eg i s t ers . 


I'hc 


order is tlic order in which 


7 


// 


the 


values ai'e 


ass i gued by 


the 


device di*i ve r . The loader 


8 


// 


assigns these variables sequentially, Pr o gr a mina 1 i c a 1 1 y , 


9 


// 


t hei 


E36 ai'e treated as a vectoi'. 




10 














1 1 














12 




int 


vg_fs ; 




// 


function switch unit 1 


13 




int 


vg_»Ll>r ; 




// 


ke >'b o r d c lia r a c ter 


14 




int 


t i X ; 




// 


tablet X i iipu t 


15 




in t 


vg_t iy; 




// 


tablet y i npii t 


16 




int 


vg-_p 1 r ; 




// 


priority interrupt requests 


17 




ill t 


vg_inc r ; 




// 


mode rsud control ( inc 1 int enables) 


18 




int 


vg-_ i r ; 




// 


display i us 1 r uc t i o n 


19 




int 


vg__v7c r ; 




// 


word conul 


20 




int 


vg_»xi' ; 




// 


X“coord i na t e 


21 




int 


vg_yr ; 




// 


Y-coo rd Ina te 


22 




int 


; 




// 


Z“coord ina te 


23 




int 


vg_a i r ; 




// 


auto - lucre me ii t 


24 




Int 


vg_ ior ; 




// 


intensity offset (ditnralng) 


25 




int 


vg_ i sr ; 




// 


i n t e ns i t y scale (cueing*) 


26 




int 


vg__mar ; 




// 


me mo ry fetch address 


27 




int 


vg__spr ; 




// 


stack pointer 


20 




int 


vg^tgr ; 




// 


temj>. general purpose 


29 




Int 


vg^psr ; 




// 


p 5 c t u 1 * o scale 


30 




int 


vg^nmr ; 




// 


11 a me byte 


31 




int 


vg_csr ; 




// 


cool’d ina te scale 


32 




int 


vg_dxr ; 




// 


cool'd ina tc X displacement 


33 




int 


vg^dyr ; 




// 


cool'd i lint e Y d is pa Ic e men 1 


34 




int 


vg^d^^r ; 




// 


cooi'dinate Z displacement 


35 




int 


vg_^r 111'; 




// 


rotation matrix X/X scale 


36 




int 


vg_r i2r ; 




// 


rotation mali’ix X/Y scale 


37 




int 


vg_r i 3r ; 




// 


I'otation inati*ix X/Z scale 


38 




int 


vg_r 2 1 r ; 




// 


rotation matrix Y/X scale 


39 




int 


vg_r22r ; 




// 


rotnt ion ma 1 1 ’ i x Y/Y scale 


40 




int 


vg_r23r ; 




// 


rotation matrix Y/Z scale 



47 



41 


int 


X"g_r3 1 r ; 


// 


rotation matrix Z/X scale 


42 


in t 


vg_r32r ; 


// 


r o t a t ion ina t r 1 x Z/ Y s c a 1 e 


43 


1 n t 


vg_r33r ; 


// 


r o t a t i o 11 inn t r i x Z/Z scale 


44 


int 


vg— WTTic r ; 


// 


w i n d o no do control 


45 


i 11 1 


vg^xln' ; 


// 


window bouridi*y X high 


46 


int 


vg«.x 1 r : 


// 


v.*i:idois’^ bound ry X low 


47 


int 


vg^ybr ; 


// 


window boimdry Y high 


48 


i lit 


vg_y 1 r ; 


// 


window bomidry Y low 


49 


int 


vg_z hr ; 


// 


window bouiidry Z high 


50 


iiit 


vg_z 1 V ; 


// 


windo'w bomidry Z low 


5) 


int 


vg_pd >:r ; 


// 


po St X displace Die ii t 


52 


int 


vg_pd yr ; 


// 


1)0 s t Y displacement 


53 


int 


vg_c c r ; 


// 


color control 


54 


int 


vg_nn 1 ; 


// 


unused 


55 


int 


vg_un2 ; 


// 


unused 


56 


1 lit 


vg«.uii3 ; 


// 


unused 


57 


int 


vg_un4 ; 


// 


unused 


58 


int 


vg_p i rx; 


// 


cx dev priority in ten' req 


59 


lilt 


vg_nic rx ; 


// 


ex dev interrupt enables 


60 


int 


vg_pe nr ; 


// 


pen hit resolution count 


61 


int 


vg_un5 ; 


/ / 


uii as c d 


62 


lut 


vg_un6 ; 


// 


unused 


63 


int 


vg_nn7 ; 


// 


unused 


64 


int 


vg'_ f s 2 ; 


// 


function sw'itches unit 2 


65 


int 


vg-kb2 ; 


// 


keyboard character unit 2 


66 


i n t 


vg_un8 ; 


// 


unused 


67 


int 


vg«.uii9 ; 


// 


unused 


63 


Int 


s3 ; 


// 


fimctiou switches unit 3 


69 


int 


vg_bb3 ; 


// 


keyboard character unit 3 


70 


int 


vg—im 1 0 ; 


// 


unused 


71 


Inl 


vg_un 1 1 ; 


// 


unused 


72 


int 


vg»fs4; 


// 


function switches unit 4 


73 


int 


vg_kb 4 : 


// 


keyJ)oard character unit 4 


74 


int 


vg^ioi 1 2 ; 


// 


unused 


75 


int 


vg^nii 1 3 ; 


// 


uuus c d 


76 


int 


vs_.pX; 


// 


picture )x o o o i* d I n a t e 


77 


inl 


vg_i>y; 


// 


picture Y coordinate 


78 


int 


vg_pZ ! 


// 


piclui'e Z cool'd i ante 


79 


int 


vg_j X ; 


// 


Joystick X input 


80 


int 


vg-jy: 


// 


j o ys tick Y input 


81 


int 


vg_j z ; 


// 


joystick Z input 


82 


int 


vg_d i a 1 [ 103 ; 


// 


dial i iij)ii t s 


83 


int 


vg^cxr ; 


// 


window' acquisition X coord 


84 


int 


vg_c \-r ; 


// 


w' i ud o w a c qu isitioii Y cool'd 


85 


int 


vg^ezr ; 


// 


window acquisition Z coord 



ys . h 



1 ^ 

2 // 

3 

4 // 

5 // 

6 // 

7 // 



NOTE: 



DO NOT ALTER THE CONTENTS OF THIS VECTOR? 



Tlicsc variables are the vector {general picture initialization 
ins true t ioiKs aud data vrords . 'Die loader assigns the variables 
s e que n t i a 1 I y a 1 1 o w i ng t he ui to be treated ns a vc c t o r . The 
order of the variables cannot be changed I'/ithout affecting 



0 // 
9 


t he 


operation of the vector 


ge lie ra 1 . 








10 
1 1 


Int 


vgs—ldfsl C040000): 


// 


load 


function sv.Ttch 


uni t 


1 


12 


i n t 


vgs^fsl CO); 


// 


function s^;ltch lamp 


bits 


0-7 


13 


int 


vgs — f s2 C 0 1 ) ; 


// 


f line lion switch lamp 


bits 


0- 15 


14 


int 


vgs_lpsr C 04002 1 ) ; 


// 


load 


plot ure scale 






15 


Int 


vgs— psr C 07776 1 } ; 


// 


picture scale, terminate 




16 


int 


vgs—ldpd C040047); 


// 


load 


post d iap lac emeu t 




17 


int 


vgs^pdxr CO); 


// 


pos t 


X- d is place me n t 






18 


int 


vgs_pdyi' COl); 


// 


JJOS t 


Y-*d i s p 1 a c e me n t , 


terrnina te 


19 


int 


vgs— xmci* C040057); 












20 


int 


vgs-.xi)ir C03); 












21 


int 


vgs-lf2 C040064); 


// 


load 


function switch 


uni t 


2 



48 



22 


Int 


v{^s_f s3 


CO) ; 


// 


23 


in t 


vft's — f s 4 


COl ) ; 


// 


24 


i n t 


vg-s _ I L-: 1 1; 


. C0d00I7); 


// 


25 


Int 


Vf^s—s t h 


CO) ; 


// 


26 


int 


vg's — I run 1 ’ 


C04G016) ; 


// 


27 


int 


vg;^s — r.ja r 


CO) ; 


// 



function switch lamps 0*-7 
function switch lamps {3-15, terra, 
load stack i>o inter 
stack pointer, terminate 
load raeruory .address rcf^ister 
memory fetch address, loriii. 
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APP^DIX G 

COriPlLE TiriE CONSTANTS 



Tlie file listed here contains the defined constants iised tlirout^li the inter- 
face routines. 



1 

2 

3 

4 

5 

6 
7 



vgde f . 1 j 



Jf- >:• V: ^ H'. y: J.'i H' if' if:if:ii<if'- if'. J;' ;f: >:c ^ >:-: :ri ^ ifi ?f; a: :{i 

NOTEi bev7nrc of the relation that exists l>el\eeii £^roups 
5t- o f <le f i nes M: 

:f: >f: If: ^ 2K Jfi 5f^ >fc is't ^ Nc 5fc^ 5|: if: ^ V: rf; >|c « ^<c 



8 


^de f i ne 


NELE 10 


// 


rja X n urn of e 1 e me n t g pe i 


9 


^de f inc 


ELI STS IZ 70 


// 


size of elo me ii t list ]> i 


10 






// 


J'hig is equal to NELE : 


1 1 


’^^^de f i ne 


VCOBJSIZ 89 


// 


size of is'o r k buffer; 


12 






// 


must be 19+ELISTSIZ 


13 










14 


*'d e f i ue 


NOBJ 10 


// 


max iium of objects per 


15 


^'de f inc 


OLISI^SIZ 33 


// 


object buffer size. Tj 


16 






// 


equal to (NOBJ + 1) >!' t 


17 










18 


i^de f i ne 


NSTACK 6 


// 


size of subroutine sta< 


19 










20 
O 1 


-^de f i ne 


NKOUE 6 


// 


size of keyboard char > 


1 

22 










23 










24 


// The 


folio wing are 


the read /icr i 


te defines for I/O 


25 










26 


•^'de f i lie 


CnD-^HEAD 1 


// 


i*ead coJiunands 


27 


•^dc f i lie 


CriD-hUlTE 2 


// 


wr i t e vg c o miua nds 


28 


^de fine 


DlSP-.rx£AD 3 


// 


read display" 


29 


-^dc f i ne 


DlSP-bTlITE 4 


// 


in' lie to display 


30 


^'de f i lie 


CTRL_READ 5 


// 


read vg* contro 1 ler 


31 


^de f i ne 


GTRL--bTllTE 6 


// 


wr i t e vg c o n t r o 1 ler 


32 


^de f i lie 


FNSh'_READ 7 


// 


I'oad funetion s^s'ilches 


33 


’^d e f i ne 


FNSK^raiTE 8 


// 


unused 


34 


^de fine 


DlAL^REAh 9 


// 


read dial positions 


35 


'■^de f i ne 


DIAL-TOITE 10 


// 


n iiiised 


36 


**de f 1 ne 


CNVT-READ 1 1 


// 


get user base address 


37 


-de fine 


KYBD_\.TUTE 12 


// 


unused 


38 










39 










40 










41 


-^de fine 


ROT 0 


// 


rotat ion ma i i r x 


42 


^de f i ne 


CSR 1 


// 


cooi*diiiate scale 


43 


-^de fine 


DXYR 2 


// 


X*Y»Z coordinates 


44 


^'de f i lie 


lOR 3 


// 


i n t e ns ity offset 


45 


^de f i ne 


isn 4 


// 


i n tens t y scale 


46 


*'d e f i lie 


PS 11 5 


// 


pic ture scale 


47 


^‘de f i ue 


POST 6 


// 


I>os t X, Y coordinates 


48 


^dc f i ne 


HPH 8 


// 


1 igh t pe n Iia 1 t 


49 


•^de f i ne 


Iu)B 9 


// 


display b! ink 


50 


‘^'de f i ne 


WEP 13 


// 


enable light pen inter] 


51 


<^de f i ne 


PIP 5 


// 


light pen iiitemipt 


52 


*^de f i lie 


SPl 0 


// 


light pen sense switch 


53 


^de fine 


PIK 3 


// 


keyboard interrupt 


54 


^de f i ne 


PIS 2 


// 


manual interrupt 


55 










56 


^'de f i ue 


CLEAR 0 


// 


clear flag 


57 


fi^de f i ne 


SET I 


// 


set f 1 ag 


58 


^de fine 


PIC 0 


// 


Picture tyi>e 


59 


^dc f i ne 


OBJ I 


// 


obj e c t t ype 


60 


*^de f i ne 


ELE 2 


// 


c 1 eiue n t t ype 
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APPENDIX D 
DEVICE DIUVEU 



Dcscr ibed 
ope rating 
and the 
t a iiied i n 



here is the system device driver maintained as part of the 
system. The Interrupt service routines for the vector general 
serviee routines for the open( ) and elosc() syste. m ealls are eoli- 
th is rout ine . 



1 

2 


^ i nc 1 ude 


" . . /pnrnin . h " 








3 


^ i lie 1 ude 


"../conf.h“ 








4 


^ i nc 1 ude 


" . . /user . h" 








5 


^ i nc 1 ude 


" . . /buf . h " 








6 


^ i nc lude 


" . ./pro 


► c.h” 








7 


^ i lie 1 ud e 


“ . ./seg.h" 








0 

o 


^ 1 nc 1 inle 


’* . . /s ys t m . h *' 








10 


•^d e f i no 


VG 


0 


// 


minor device 0 




1 1 


^de f 5 no 


VGDISP 


J 


// 


minor device 1 




1 2 


^d e f i ne 


VGCNTiU. 


2 


// 


minor device 2 




13 


^de f 1 lie 


VGFPSW 


3 


// 


minor device 3 




14 


- de f i ne 


VGD I AL 


4 


// 


minor device 4 




15 


f i nc 


VGCGNVT 


5 


// 


minor device 5 




16 


^d e f i lie 


CLOSE 


0 


// 


I'estrict access flag 


17 


^dc f i lie 


OPEN 


1 


// 


permit access flag 


18 


^dc fine 


VGADDR 


0167770 


// 


PDP-11 address of 


VG 


19 


f i ne 


SAP.O 


0 


// 


VG reg command 




20 


^de f j lie 


s.mi 


1 


// 


VG reg command 




21 


^de f i ne 


SAR52 


064 


// 


VG reg command 




22 


^de f i ne 


SARTO 


0106 


// 


VG reg CO mina nd 




23 


^de f i nc 


AKG 


040000 


// 


ack. frajie clock 


i 11 1 err up t 


24 


«^de fine 


SCL 


01000 


// 


stop 8 clear disp 


cont ro 1 ler 


25 


f 1 ne 


AXInCSD 


0176600 


// 


ack all iiitei'pt 8 


reset disp 


26 


^dc f i nc 


BUSY 


1 








27 


f ine 


IDLE 


G 









20 

29 // four I/O ehnnuels in the PDF- 1 1 

30 

31 struct C 



32 


i n t 


ddo ; 


// 


direct data output 


33 


int 


p 1 o ?r ; 


// 


extended prog I/O 


34 


iut 


ma ; 


// 


memory address 


35 


int 


p i o ; 


// 


prog I/O 



36 ) ; 

37 

88 struct biif rvgbuf ; 

39 

40 



41 


c har 


vglk C05; 


// 


minor device 0 


lock 


42 


c har 


d isplk (0) ; 


// 


minor device 1 


lock 


43 


c hai* 


ctrllk (0); 


// 


minor device 2 


lock 


44 


c har 


f iis w I k ( 0 ) ; 


// 


minor device 3 


lock 


45 


char 


dial Ik (03; 


// 


minor device 4 


lock 


46 


char 


keybdlk (OJ; 


// 


ID i nor device 5 


lock 


47 


c har 


vg lock (03; 


// 


VG system lock 




48 


chai* 


disp lay; 


// 


display active 


flag 


49 


char 


CSC (03; 


// 


ASCII escape flag 


50 


int 


%-gbuf [ 80 3 ; 


// 


VG rcgistei- buffer 


5 I 


i 11 1 


c 1 o c kc n t ; 


// 


frame clock count 


52 


int 


c 1 o c kr e f (33; 


// 


frame clock ref 


c o un t 


53 


int 


base ; 


// 


proc base address 


54 


int 


b a d d r 1 ; 


// 


display base add i* ess 


55 


lilt 


b a d d r X ; 


// 


extended memory 


bi ts 


56 


i nt 


i ; 








57 


int 


vga d d r ; 


// 


buffer address 




58 


int 


vgcore ; 


// 


ret) 1 core address 


59 


int 


^iKvgproc ; 


// 


po Intel' to real 


t i me 



process 
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60 
6 1 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
iCO 

101 

102 

103 

104 

105 

106 

107 

108 
109 
1 10 
1 1 1 
1 12 
1 13 
1 14 
1 15 
1 16 

i 17if 
1 18 
1 19 

120 // 
121 // 
122 // 

123 // 

124 // 

125 // 

126 

127 

128 
129 
130} 

131 

132 

133 

134 



vg:ope n( <lc! V , f 1 ag) C 

switch ( dc V . d— ml nor ) C 

case VO : ( 

If (vgll; == OPEN) C 
u , u_c r r o r = E 1 0 ; 
re t urn ; 

} 

v^lk = OPEN; 

break; 

} 

case VGDISP: { 



// channel for virtual to real 
// address conversion 



if 



OPEN) C 
= F. 1 O ; 



// channel for display lists 



case 



// channel for driver control 



// channel to obtain function 
// s w 1 t c he s 



// 

// 



channel to obtain dial 
pos i t Ions 



(displk == 

II . u_er ror 
re t urn ; 

} 

displk = OPEN; 
bj*eak; 

} 

VGCNTPJ.: C 

if (etr 1 Ik == OPEN) C 
u. 11 — error = ElO; 
re t urn ; 

} 

Ctrl Ik = OPEN; 
break; 

} 

case VCFNSW: C 

if ( fnsv.’lk == OPEN) C 
u.u_error = EIO; 
ret urn ; 

} 

fuswlk = OPEN; 
break; 

} 

case VGD1/\L: 1 

if (dial Ik == OPEN) C 
u.u— error = EIO; 
ret U2* n ; 

} 

diaUk = OPEN; 
break; 

} 

case VGCONVT: C 

If (keybdlk == OPEN) C 
u.u_.crror = EIO; 
r e i ur n ; 

} 

keybdlk = OPEN; 
break ; 

} 

default: C 

u. 11 — error = EIO; 
i*e t ur n ; 

} 

} 

(displk 38 Ctrl Ik 88 fnswlk 88 dial Ik 88 keybdlk 88 vglk) 

( 

v^proc = U.U— procp; 
if (sr t iino(O) != 0) 

C 

vg:c lose ( ) ; 

U.U— error = EACCES; 

1 ' e turn; 

} 

VGADDR->pio = SGLIAKC; 
vg^ lock = OPEN ; 
display = IDLE; 

} 



// 

// 



channel for real to virtual 
address conversion 



// make process real time 



// 

// 



clear 8 reset VG 
e na b 1 e VG s ys t c rn 



// Tlie Vector General Is a dedicated device. Tlicrefore, 
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I 



135 // Jf one minor device is closed access to all minor devices 



136 


// Is restricted. 






137 








130 


lose(dev) C 






139 


vglk = CLOSE; 






140 


virlock = CLOSE; 






141 


d i s p 1 U = CLOSfl ; 






142 


Ctrl Ik = CLOSE; 






143 


fiiswlk = CLOSE; 






144 


dial Ik = CLOSE; 






145 


Le-ybdlk = CLOSE; 






146 


VGADDR->pio = SGL; 


// 


clear 8 reset VG 


147 


no nr t iire ( ) ; 


// 


inake process non real time 


148 


) 






149 








150 








15 1 








152 








153 








154 








155 


vgs tra t egy( a bp) 






156 


struct buf ^abp; C 






157 


register struct buf ^bp; 






158 








159 


bp = a b i> ; 






160 


vgcore = bp“->b_addr; 


// 


save real address of buf 


16 1 


ifCdisplay - = IDLE) 






162 


( 






163 


base " vgproc~> p^addr ; 


// 


save base add i* ess for real 


164 




// 


to virtual address convei's ion 


165 








166 


s wi t c Ii( bp-> b-sinein) 


// 


set extended memory bits for VG 


167 


C 






163 


case OOj 


// 


0-32k address block 


169 


C 






170 


baddi'x = 0; 






171 


b !• c a k ; 






172 


) 






173 


case 0 1 : 


// 


32“64k address block 


174 


C 






175 


baddrx = 024; 






176 


b I' e a k ; 






177 


) 






178 


case 10 • 


// 


64“96k address block 


179 


C 






180 


baddrx = 050; 






181 


break ; 






182 


) 






183 


case 1 1 > 


// 


96“128k address block 


184 


C 






185 


baddrx = 074; 






186 


break; 






187 


:) 






188 


) 






189 


) 






190 


u . ii— c o un t = 0 ; // 


ma ke 


sys believe 1/0 complete 


191 


i o d o nc (bp) ; 






192 


3 






193 








194 








195 








196 








197 








198 








199 


vgwr i t e ( de V, f lag) C 






200 


if (vglock == CLOSE) ( 






201 


u.u— error = EBABF ; 






202 


ret urn ; 






203 


) 






204 


switch ( de V, d— in i no r ) C 






205 


case VGDISP: C 


// 


send displnv’ list to VG 



200 phys io ( vgs t ra tegy , 8rvgbiif , de v, B—TOrfE) ; 

207 baddrl - vgeore ; 

200 IfCdispiay == IDLE) ( 

209 display = BUSY; 
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210 

211 

212 

210 

214 

215 

216 
217 
210 

219 

220 
22 1 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 



V{js 1 a r I ( ) ; 

) 

return; 

) 

case VG' C // save real address 

phys io( vffs tra tei^y , 3r v<jbuf , dev. B^WvlTK) ; 
vgaddr = v^coi'e; 
ret nr n ; 

) 

case VGGNTRI>: C // set user refresh rale 

c 1 o c k.r e f = c pa s s ( ) ; 
ret urn ; 

) 

default: ( 

ii. uteri' or = ElO; 
re t urn ; 

) 

) 



239 


vg-passc ( abp) 


// 


pass data from here to user 


240 


1 u t abp ; 


// 


NOTE: user is 7'esponsihle 


241 


C 


// 


for correct byte count 


242 


char 




243 


bp = abp; 






244 


whl 1 e ( passe ( ^'bp) >= 0) bp++ ; 






245 


3 







246 

247 

248 

249 

250 

25 1 

252 

253 

254 

255 

256 

257 

258 

259 

260 

26 1 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
201 
282 

283 

284 



// r e d VG regis ters 



vgrreadC de V, f lai?) f 

if (v-lock == CLOSE) C 
u.u^error = EB^\DF ; 
re turn; 

} 

switch ( d e V , d i no r ) 1 
case VGONTRI.; C 

VGAODR~->pio = SARO; 
for ( 1=0; i<80; i++) vgbufLi] = VGADDR->pio; 
break; 

) 

case VGFKSW : C // read VG function switch re^jisters 

VGAODK->pio = SARO; 
v<-buf[03 = VGADDR->pio; 

VGADDR->plo = SAR52; 
vg:bufC52] = VGAl)DR->pio; 
break; 

) 

case VGD I AL: C // read VG dial post ions 

VCA0DR->pio = SAK70; 
for ( 1=70; 1< 80 ; 1++) 

( 

If (i<= 100); // waste time 

vgbufin = VGAJDDR->pio ; 

) 

break; 

) 

case VGDISP: C // read last update of VG reg-isters 



break; 

) 

case VGCONVT: C 

v^passc(8base) ; 
re t Tir u ; 



// send real basea address to user 
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// scud real address to user 



205 

206 
287 
203 

289 

290 
29 1 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 
31 1 
3 12 



3 

case VG; C 

vgpassc ( Svgaddr ) ; 
ret ur ii ; 

3 

de f au It: C 

n.u_error = ElO; 
return; 

3 

3 

vgpas sc ( vfjbuf ) ; 
re t ur 11 ; 

3 



v^g“s t a r t ( ) C 

c 1 o c ke ji t = 0 ; 

VGADDR— >piox - baddrx; 
VGABDPt->ina = baddrl; 
VGADDR->pio = iVia:CSD; 

3 



// send VG reg-isters to user 



// set V^G e X t e iid c d ne nio r y bits 
// send VG display address 
// start VG operation 



3 13 // VG frame clock inlorruiit handler. blien enabled frame 

314 // clock interrupts occur everv 8.33 msec. 

315 

316 vgc lock( ) C 

317 if<vg-lock == CLOSE) return; 

318 VGAD13R->pio = AK(^; // akc frame clock iiitrp 

319 if (++clockcnt == cloclu'^ef) C // refresh the display 

320 VG.*d>I>R->pio = SGL; 

32 1 vgs t ar t ( ) ; 

322 3 

323 3 

324 

325 

326 

327 

328 

329 // The current VG Interface software makes no use of the 

330 // P”bit. Ilovrever, the P-bit interrupt handler is required 

331 /'/' for system compatibility. 

332 



333 vg-ph i t ( ) C 

334 3 

335 

336 

337 

338 

339 

34G // VG device interrupt handler. Called whenever 

341 // the VG keyboard is depressed, the manual interrupt switch 

342 // is depressed, or a light pen interrupt is delected by 

343 // the VG. 

344 

345 vgde v( ) 

346 C 

347 if (vglock == CLOSE) return; 

348 VGADDR->pio = SARO ; // get VG interrupt state 

349 for( 1=0; i< 1 1 ; i++) vgbufll] = VGADDR->pio; 

350 VGADDR->pio = SAR52; 

35 1 vgbuf[52J = VGAI)DR->pio; 

352 if ( !esc) 

353 C 

354 if ( vgbuf C438010 88 vghufCl] == 012000) 

355 C 

356 ps igna 1 ( vgproc , 2) ; // terminate the process 

357 go to akc ; 

358 } 

359 If ( vgbufC438010 88 vgbiif[ 13 == 015400) 
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3 

i 



360 


( 


36 1 


esc 


362 


g;o t 


363 


) 


364 


ps igna 1 


365 


) 


366 


else CSC — ; 


367 akc : 


368 


VG/iDDPc~>pio 


369 





++ 5 

o altc ; 

( vg:proc * 15) ; 

= VffbufC4] << a; 



// send the user 



// ack.owlcd|^e 



the interrupt 



in terrup t 
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APPEMDIX E 
IMTEnFACE ROUTINES 



Contained here are the Interface routines grouped by files. The files are 
ill alphabetieal order. 

vfje 1 e . c 



1 


i ne 1 ude 


"vgde f . h" 










o 


^ i lie 1 nde 


" lob . h" 










3 

4 

5 


i lie 1 ude 


" vgo b J . h “ 










6 

7 

8 














Hi 


9 




Add 


an element to an object. Pos 


s i b 1 e 


return codes are: 






10 


% 




-1 llleg^al object iiuiuber 








Hi 


1 1 






-2 nonexlstant object 








Hi 


12 






-3 object caimo t access 


more e 


1 e me n t s 




Hi 


13 






~4 element number is out 


of i*aiig:e 




Hi 


14 


% 




“5 user display buffer is less 


t lia n 6 bytes 




Hi 


15 






“6 lisei* buffer address is zero 






Hi 


16 






normal return is the element 


nnmbe r 






Hi 


17 














Hiy 


18 
















19 


vgadd e 1 e ( abp , mini , s i 7.e ) 










20 




in t 


abp ; 


// 


user e 1 e me n t b u f f e 


r 




21 




i 11 1 


11 um ; 


// 


object number 






22 




1 11 1 


size; 


// 


iium bytes in user 


buf fe 


r 


23 




( 












24 




int 


i , J ; 










25 




ill t 


^Nbp ; 


// 


buf f e r po inter 






26 
















27 




if((bp=sbp) == 0) re turn (-6); 


// 


e he ck for buf addr 


of 0 




28 




i f ( s 


i ze80 1 II (size = >>l)<=3) ret ur n( -5 ) 


; // check byte 


e o un t 




29 




if(iiutn<=0) re1urn( — l); // cheek object nuinber 






30 














Hi 


31 


Hi 


Search all the object structures 


for the object. 




Hi 


32 


Hi 












Jfc/ 


33 




for( 


i = 0 ; 1< N08J ; 1 ++ ) 1 f ( ve;o b J C i 3 . vg^iium = 


= niira) break; 






34 




if ( i 


>= NOBJ) returii(-2); 




// object doesn’t 


exist 


35 


XHi 












Hi 


36 


Hi 


Find 


t he first e mp t y element location In the o li j e c t 




Hi 


37 


Hi 


s t rue t lire . 








Hi 


38 


Hi 












Hiy 


39 




f or 


( J= 1 ; J<ELISTSIZ; J =+ 7) 










40 






if ( vgo b J [ i 3 . v^e 1 e [ J 3 


= = 0) 


break; 






41 




lf( J 


= = ELISTSIZ) re turn(-3) ; 




// no empty elements 




42 














43 




i f ( ( + + v^e leiium) > 25b) re turn( - 4) ; 


// 


no empty elements 






44 














Hi 


45 


Hi 


Fi 1 1 


the last 3 words of the element buffer. 




Hi 


46 


Hi 












Hiy 


47 




bp 


+ (size-D) = 044016; 




M MAR from stack 


i ns t 




48 




Hii bp 


+(size-2) ) = 024; 


// 


term e ha r mode 






49 




Hi ( b p 


+(slze—3)) = 015; 


// 


term all mo d e s e xe p t e ha r 


50 














Hi 


5 1 


Hi 


Fill 


the e 1 e me n t wo rds associated 


wi th 


t he object . 




Hi 


52 


Hi 












Hi/ 


53 




vft'o b j C 1 ] . vgre 1 e [ J +6 ] = 044016; 










54 




vfvobj t i 3 . vge le t J+5] = v^cntrl(bp) 


101; 








55 




vf^ob j t i ] . vge let J + 43 = 0400 1 6 ; 










56 




v^obj til. vge letj + 33 = 074216; 










57 




vfi'obj C i ] . vge le [ J+23 = 046201; 










58 




vgobj C i] . vft-e le [ J+ 1 3 = 040005; 











57 



59 




vgo b J Cl], vge 1 e C J ] = 


( vge 1 e uum< < 8) 101; 




60 




vgo b J C i ] . vge 1 e C J — 1 ] = 


040022; 




61 




re t ur n( v'gc 1 enurn) ; 






62 




) 






63 










64 










65 










66 










67 










63 










09 










70 










71 










72 










73 








if: 


74 




Delete the clement by 


searching all object structures 


a: 


75 




for the g i ve 11 element 


. Possible return codes ai*e: 


a: 


76 




0 iiorna 


1 re turn 




77 




~2 clement does not exist 


a: 


78 




“*4 element number is out of range 




79 








ii:y 


80 










81 


vgde 1 e le ( iium) 






82 




int niira; 


yy element number 




83 




C 






84 




5 11 1 i , J ; 






85 










86 




if(num< = 0 i 1 iium>256) 


i*eturu(“4); // check element num 




87 








if: 


88 




Sequentially search a 


11 object structures and elements for the 




39 


if: 


object containing the 


e 1 e me n t , 


if: 


90 


a: 






if:y 



91 for(i = 0;i< NOBJ ; i++) 

92 C 



93 for( j= 1 ; J<ELISTSIZ; j =+ 7) 

94 C 

95 i r ( v^ob j C i ] . vcre 1 e C j ] = 

96 if ( vf^obj C i ] . vf^e le t J 3 

97 ) 

98 ) 

99 ret nvui -2) ; 

100 



0) break; 

((iium<<8) IGl)) g'oto found; 



// element doesn’t exist 



101 

102 

103 

104 

105 

106 
107 
103 
109 
1 10 
1 1 1 
I 12 
1 13 
1 14 
1 15 
1 16 
1 17 
1 18 
1 19 



Delete the element and compact the remaining elements. 



found • 

V’hi le ( vgobj C i 1 . vge le [j+7] ?= O) 

( 



vgo b J C i ] . vgre 1 e [ j + 6 ] 
vgo b J [ i ] . vge 1 e C J 5 ] 
vgob J [ i ] . v-ge lo C J+2] 
vgobj [ i ] . vge le C J ] 

J =+ 7; 



vgo b J r i 1 . vge 1 e [ J + 1 3 ] ; 
vgo b J C i ] . vge leCj+123 ; 
vgo b J [ i ] . vge 1 e [ J *^9 ] ; 
vgob J Li]. vge le [ J +7 ] ; 



vgobj r i ] . vge let J- 1 ] = 044016; 
vgo b J [ i ] . vge 1 e C J ] = 0 ; 

re t urn( 0) ; 

) 






120 



121 
1 22 

123 

124 



125 



125 


yr^ 








>: 


127 


a: 


rio d i f y the 


1 ight pen and 


display blink fields of the flGR 


a: 


123 


if: 


reg is ter of 


e lement . Po 


ssible return codes are: 


a: 


129 


if: 


0 normal return 


if: 


130 


if: 




~2 e 1 erne 11 1 


does n * t exist 


a: 


131 






“^4 e lemeul 


out of range 


if: 


132 


if: 








i(:y 



133 



58 



134 








135 


vffe 


leiaod ( nura, field, act ion) 




136 




Int Kura; // element 


number 


137 








138 




in t field: // 0400 


I i ght pen ha 1 t 


139 




// CHJOO 


display blink 


140 




// 020(^00 


light pen hit detect 


141 








142 




char action; // 0 - clear 


143 




Z/' I — set 




144 




C 




145 




Int i , j ; 




146 








147 




if(uuin<=0 i( mjra>NELE) retnru(~4); // check element 


148 








149 




Find the object containing; the e 


lenient . 


150 








15 1 








152 




for ( i = 0; KITOBJ; i++) 




153 




C 




154 




for ( J= 1 ; j<ELISd'SIZ; J =+ 7) 




155 




C 




156 




If ( Vf-o b J [ 1 ] . vgc 1 e [ J ] = = 


0) break; 


157 




if ( V(^ob J C i J . v^e 1 e r J 3 = = 


((num<<8) 101)) goto 


153 




) 




159 




) 




160 




re t urn( -2) ; 


ZZ element doesn’ 


16 1 








162 








163 




Modify the light pen and blink control. 


164 








165 


found 1 : 




166 




ifCactiou - = SET) 




167 




vgobj C i J . vge le [ j*5-2] =1 field; 


168 




else if(action =- CLEAR) 




169 




vgo b j C i 3 . \ ge le[j+23 =3 '*^<fie 


Id 10100000) : 


170 




re turn( 0) ; 




171 




) 











vg i u 1 t . c 



1 

2 

3 

4 

5 

6 

7 

8 



^include "v^def.h" 
'^include '* 1 o ^ 

•^include "vg'sys.h" 
^include "vgrobj.h" 



extern 

extern 



v£;crash( ) 
vg:dp 1 v< ) ; 



n 



9 



10 










1 1 








>:e 


12 


i.N 


Tlie vector general 


initialization routine defines all 


He 


13 


He 


system instructions 


and 1 i nl^‘ all s ys t e m bii f f e r s . 


He 


14 


He 






He 


15 


He 


If the process can* 


t become real-time or if all minor 


He 


16 


y,e 


devices are unable 


to be opejied the process is iia ted . 


He 


17 


H: 






He/ 


10 










19 










20 


vg i n i 1 ( ) 






21 




C 






22 










23 


/He 






He 



24 Open all vector g^eneral minor devices. 

25 ^ 



26 

27 if (v|jopeii() != 0) vgcrash( ) ; 

28 



59 



29 












SO 


Hi 


riake the procos’S real-time. This call 


is placed here 


if: 


31 




only until the system r t i tuc ( ) call 


fi'oni the driver level 


iC 


32 




can be debugged. It s lion Id be a cn 


11 at the driver level 


if: 


33 


-V: 


when nil minor devices are opened. 






if: 


34 










if:y 


35 












36 




if(rtime(0) t= 0) 








37 




( 








33 




perro r ( "r 1 ime error"); 








39 




vgcrashC ) ; 








40 




) 








41 












42 




s i gna 1(2, vgci'ash) ; 








43 




s i gna 1(15, vgd p i v) ; 








44 












45 




vgolock(40); // 


set 


default refresh rate 


46 












47 




vgs _mn r = v’^go i n i t ( ) 101; 


// 


get address of objlist 


48 




vgs—stk = vgcul r 1 ( vgs tack) 101: 


// 


stack a d d 2* in MAR 


f o rma t 


49 




vgs t a c kt 0 3 " vgc n t r 1 ( S vg idle) 101; 


// 


stack underflow protection 


50 




vg idle = 03C000 ; 


// 


ha It ii'S t rue t ion 




51 




vg 1 j ' f 1 a g = 0 ; 


// 


light pen intei't'upt 


flag 


52 




vglpsflg = 0; 


// 


1 ight pen sense swi tcli flag 


53 




vgkflag = 0; 


// 


keyboard flag 




54 




vgkptr = 0; 


// 


keyboard queue pointer 


55 




vgkquefl “ 0; 


// 


keyboard input flag 




56 




ret u 2’ n ; 








57 




} 








58 












59 












60 












6 1 












62 












63 










a: 


64 




fill buffer with the post K~c oord i iia t e 


a nd t he po s t 


a: 


65 


5fC 


Y— coordinate values. The value.s that px and py may assume 


if: 


66 




are 0177760 (-2048) tlii'oiioh 077760 


(2047) . 


it: 


67 










a:/' 


68 












69 


vgTPO 


'S t ( px i py) 








70 




int px; 




post X-co ordinate 




71 




iiit py; 


// 


post Y— coordinate 




72 




C 








73 




vgs^pdxr = px << 4; 








74 




vgs—pd'jT “ py << 4; 








75 




3 








7 












77 












78 












79 












80 












81 










if: 


82 


ifC 


Set /Cl ear the fuiictiou switch lamps 


. Ea dibit set in t he 


a: 


83 




input buffer will affect one lamp. 








84 












85 












86 


vg” lamps ( abp) 








87 




int abp; // two word buffer pointer 




88 




( 








89 




i n t ^ b i> ; 








90 




lf(abp==0) return(~6); 








91 




bp - abp; 








92 




vgs — fs 1 = 'S'bp S 0177400; 








93 




vgs «_fs2 - ((^bp & 03 77 ) 8)101; 








94 




vgs_fs3 - ++bp) S 0177400; 








95 




vgs — fs4 ” ((^b|> 6 0377) 3) 101; 








96 




} 








97 












98 












99 












100 












101 












102 










a: 


103 




riodify the picture parameters. 









60 



1 




I 



I 



104 Tlie va 1 uef? field can iissume areJ 

105 ^ 

106 

107 

1 0 8 v^p irniod( f ie ld,ac t Ion) 






109 


int 


field; 


// 


0400 


1 ighi pen 


lia 1 t 


1 iO 






// 


01000 


display hi 


i nk 


1 i 1 
I 12 






// 


020000 


1 igiit pen 


hit delect 


1 13 


Int 


action; 


// 


0 clear 




1 14 






// 


i set 







1 15 
1 16 
1 17 
1 18 
1 19 
120 

121 

1 22 

123 

124 

125 

126 

127 

128 ^ 

129 ^ 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 ^ 

142 

143 

144 

145 



in t i ; 

1 = 0 ; 

vhi le ( i< NOBJ) vgobjniodC v^johjl 1++3 , v{^num, f ie Id , ac t ion) ; 



Start the disi>lay, 



v£^p 3 c t lire ( ) 

C 

i o ( S v-s ^ 1 d f s I , D 1 SP-^imi TE) ; 

1 






// start display 



Modify the picture scale* The rangre of values are 0 ~ 1. 



5f: 

5('/ 



vgpsca 1 ( va 1 ) 

doub le va 1 ; 

146 C 

147 iiit temp; 

148 temp = va 1 5;" 2047; 

149 vgs— psr = ( temp< < 4 ) I 0 1 ; 

150 ret ur n( 0 ) ; 

151 3 



// pictui’e scale value 
// temp integer value 



vg i n t r . c 



1 ^include "vgdef.li" 

2 include "vg-grlob.h" 



3 

4 


^include "vgreg.ii” 










5 

6 














7 


% 


when a light pen in 


terrupt , a 


s e ns e switch i n t e i’ 


rupt, a 




0 


% 


ke yho ard inter r up t * 


or a rnanua 


1 interrupt occurs 


t he 




9 




VC system interrupt 


driver passes the interrupt 


to the 




10 




user via this routine. 








1 i 


% 












12 




KOTEt interrupts 


are i»assed 


via s igna 1 1 5 






13 















14 

15 

16 

17 

18 



vgdp i v( ) 

C 

int i! 



61 




I 



19 

20 
21 



s 1 1(15, v^dp I v) ; 

verp io ( S# , D I SP-.READ) ; 



// get interrupt slntc from VG 



22 


for ( i=0; i<7; 1++) 


i f ( ( vg_p i r > > i ) 80 1 ) 


s wi tch( i ) 


23 


C 






24 








25 


case PIP: 


// 


light pen Interrupt 


26 








27 


case SP 1 : 


// 


light pen sense switch 


28 


C 


// 


in teri'up t 


29 


vglpivC ) ; 






30 


b r (i a k ; 






31 


} 






32 








33 

34 


case PIK: 
( 


// 


keyboard interrupt 


35 


vgkpivC ) ; 






36 


break; 






37 


3 






38 








39 


case PIS: 


// 


manual intei'rupt 


40 


C 






41 


vgmp 1 v( ) ; 






42 


break; 






43 


3 






44 


3 






45 


re t urn ; 







46 

47 

48 

49 

50 
5 1 



53 

54 

55 

56 

57 
50 

59 

60 



73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 
9 1 

92 

93 



Jf: 

5 ?: 



li^ht pen intex^rupt handler 

store the resulting 1 i/^ht pen iateriMipt values In vglpbuf 
only if the j)revious interrupt has been processed by the 
user . 






1 p 1 VK ) 
( 



61 


i f ( ( vg 1 pf 1 ag= = 


0) 


88 (vg_pir801)) 






62 


C 










63 


vg I pbuf C 0] 


= 


vg_p ir > > 8 ; 


// 


mode 8 coutroi I'eg 


64 


vg 1 pbuf [ 1 ] 


= 


vg_ i r ; 


// 


instruction word reg 


65 


vg 1 pbu f C 21 


= 


vg_wcr : 


// 


word count reg 


66 


vg 1 p b u f [ 3 1 


= 


vg_>:r > > 4 ; 


// 


X*"C o o 1 * d i na t e 


67 


v"g 1 pbu f t 43 




vg > 4 ; 


// 


Y— CO o I'd i iia ! e 


68 


vglpbuf [ 5] 


= 


vg_zr> > 4 ; 


// 


Z“Co or d i nn t e 


69 


vg 1 p b u f C 6 ] 


= 


vg^peur ; 


// 


pen resolution byte 


70 


vglpf lag++ 


♦ 








71 


3 










72 


if ( vg—p i r80 1 ) 




glps f lg++ ; 










Vector (^nerai Keyboard Charactei' Pivot 

vlien a Keyboard character interrupt has occnred, this routine 
gels the keyboai'd character from the Vector Genera 1 
places it in vgkque , and increments the character flag, 
vgkflag, to indicate a character lias been input 

NOTE: 'File user should empty the queue by calling 

vgge tcar( ) . 






vgkp i v( ) C 

vgkf lag++ ; 
i f ( vg— kbr 
( 



== 010000 ) 



62 



94 

95 

96 

97 
9B 

99 

100 
101 
102 

103 

104 
I Go 
106 

107 

108 
109 
1 10 
1 1 1 
1 12 
1 13 
1 14 
1 15 
1 16 
1 17 
1 18 
1 19 
120 
121 
1 22 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 



v{vKflnf5 = 0; 
verkptr = C; 
vffkque f 1 = O ; 
return; 

) 

if (vj^kptr == T^KOlUK) vgkptr = 0; 
vg^kque [ vgki> tr + + ] = vg;_l«Lbr; 

) 



^ Vector General Hanun 1 Interrupt Pivot. 

^vheii a ipaiiual switch iiiterrux>t occurs, this routine i iic re me ii ts 
the Manual interrupt coujilor 
iK 

vg^mp 1 v( ) C 

vg-ina n i n t + ; 

3 



^ kill the process . 

^ called whe ii a condition r e eu i 7’ e s pro cess terini na t i o n 
i.e. “rukout" on the DATAI'iEDIA terminal or CTRL T 
^ on the vector general keyhoard 

x"gcrash( ) C 

vgterii3( ) ; 
ex i t ( ) ; 

) 















vgobj . c 



1 '^include "vgdef.h” 

2 ^include "vggloh.h" 

3 '^include " vgo 1) j . h “ 

4 

5 

6 

7 • 



8 














% 


9 




Add 


the object to the ac t ixe display list. 




% 


10 




Tlie 


possible return values are t 








1 1 






0 


normal termination 






% 


12 






-1 


object nuinl>er is neg. , 


zero, or greater 


than NOBJ 




13 






-2 


object doesn’t exist 








14 






-3 


object list is full 








15 
















16 
















17 


vgaddobj ( iiiiia) 










18 




int 


num; 


// 


object uu tiLbe r 






19 




C 












20 




Int 


5<iaddr ; 


// 


object address 






21 




int 


l,j; 










22 
















23 




i f ( nurt3< =0) 


re t nrii( - 1 ) ; // check > 


objec t number 






24 




lf( V 


gobj 1 is 


t[01>K0BJ) return(~3) ; 


// object list 


ful 1 




25 
















26 




Find 


the object structure with the 


desired object number 




27 


a: 















63 



28 

29 

30 

31 

32 
83 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 



f or ( i = O ; i< NOr>J ; i + + ) i f ( vg;obj [ 1 1 , vgiiuci == nuin) break; 
if(i>=K0BJ) retnrn(-2); // object doesn’t exist 



j = v^objMstCOJ ^K3; 

v^^obj 1 1 s I [ j +21 = vj^cn tr 1( i J le ) I 0 1 ; 
v£;obj n s t [ j + 1 ] = 04G016; // load 

= vp;o n L r J ( 8 V£^o b J C i 1 , 101; 

// load llAR 
// 



vj^ob J 1 i s t [ J 1 
vgob J 1 ) s t [ J - 1 1 = 040016; 
vg;ob J 3 is t [ J “21 = G74216; 
v'^obj 1 is 1 [ 01 + + ; 
r e t u 11 ( 0 ) ; 

3 



stoi-e MAR in slack S mark 



50 












51 


a* 


Find the object, delete It, and If 


in the active dis|>lay list 


% 


52 




compact the 


resulting* active display list. Possible return 


% 


53 




va 1 ues ar e J 






% 


54 


Jj: 


0 


no r ma 1 r e t ur ri 






55 


5?C 


- 1 


object number out of i*ange 




56 


J#: 


-2 


object doesn’t exist 






57 












58 












59 


vg-de lobj ( num) 








60 




iiit nuin; 


// 


object number 




61 




( 








62 




i n t n d d r ; 


// 


address po inter 




63 




lilt 1 , J , k; 








64 












65 




1 f ( num< =0) 


return(-l); // check o 


bject mirahei* 




66 












67 




Se que n t i a 1 1 


y search the object structures until the desired 




68 




obj ec t can 


be found . 






69 












70 




f o r ( i = 0 ; i < KOBJ ; i + + ) 1 f ( vgobj [ 1 J . vg*nuni= = iiura) break; 




71 




if ( i>=N0BJ) 


ro t urn( -2) ; 


// object doesn’t exist 




72 




vgobj [ i 3 . vgnuDi = 0 ; 


// delete the object 




73 










5/C 


74 




Chock if the object is in the activ^e display list. If yes 




75 




t he 1 i nk i n 


vgobjlist must be removed. If no then only the 




76 


5fC 


o3>ject number must be zeroed. 






77 










V:/ 



78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 
101 
102 






ad dr = v^cn t r 1 ( ft vt^ob J [ i 1 ♦ vgminj) ( 0 1 ; 

f or ( J = 1 ; J< vfjobj i is t [ 01 ; J + + > i f ( vg^obj 1 is t [ J5f'31 = = addr ) break; 

Cornpact the resulting* display list. 

i f ( J < v^o bj 1 istCOl ) 

C 

vgo bjl isttOl — ; 

V{^o b J 3 i s t [ J ^3 3 - vgo b J 1 1 s I [ v^o b J 1 i s t [ 0 1 Jf-3 3 ; 

vgobj 1 is t C vgobj 1 is t [ 01 = vgcii tr 1 ( ftvgid le) I 0 1 ; 

3 

re t urn( 0 ) ; 

3 









Find an unused object structure and initialize the structure 



64 





f 




'fi 



I 



\ 



103 




to all default parameters. 


Possible return codes a i' e : 


??: 


104 




“3 all objects previously defined 


if: 


105 


if: 


Normal return is the object 


number assigned to the new ob.iect 




106 


if; 








if:/ 


107 












108 


vgmko hj ( ) 








109 




C 








1 10 




lut 1 ; 








1 1 1 


/if: 








if; 


1 12 


if; 


Find the first uunsed object structure. 


H: 


1 13 


If; 








If:/ 


1 14 




for( 1 = 0; KNOBJ; i+ + ) if(v^obj[ i] 


.vguum==0) break; 




1 15 




if(i>=K0RJ) r e t ur ii( -3) ; 


// 


all object in use 




1 16 




vgobjC i] . vgjixua = + + vf^curob) 


i 






1 17 




vcobjl 1] . vf^lor = 077760; 




// intensity offset 




1 18 




vg*o b J [ i ] , i s r = 0 1; 




// intensity scale, terminate 




1 19 




vf^obj [ i ] . vf^esr = 037760; 




/y^ coordinate scale 




120 




v^objCil.vgx = 0000000; 




// X“Coord i iia to 




121 




v*^ob j [ i 1 . v^y = 0000000; 




// Y-c o o r d i Tia t e 




122 




v^o b J [ i ] . \y;’z = 0 ; 




// Z-e oo rJ I iia te 




123 




vgo 1) J C i ] . vgro t r 0 ] = 077760: 




// fill rotation matrix 




124 




vgobj [ i ] . v'^ro t [ 4] = 077760; 








125 




vgrobj Cl]. vp;ro t [ 81 = 07776 1 ; 




// tei’iiil na te 




126 




returnCvgohjC 11 . vj^mun) ; 








127 




3 








128 












129 












130 












131 












132 












133 












134 












135 












136 












137 












138 


/i?: 








If: 


139 


if; 


Modify the object as indica 


tod 


by the input parameter. 


If: 


140 




Possible return codes are? 






if: 


141 




0 norina 1 rctui^n 






If: 


142 


if: 


“1 object number out o 


f range 


if: 


143 


if; 


-2 object doesn't exist 




144 










If:/ 


145 












146 


v^ol> Jinod ( jiuin, f ie Ids? ,ae t ion) 








147 




int uiira; 


// 


objee t number 




148 












149 




lut fie Ids ; 


// 


0 “ rotation matrix 




150 






// 


1 - coordinate scale 




151 






// 


2 “ X,Y,Z coordinates 




152 






// 


3 “ intensity offset 




153 






// 


4 - intensity scale 




154 






// 


8 - 15 gh t pe n ha 1 t 




155 






// 


9 “ display blink 




156 






// 


13 “ light pen interrupt 




157 












158 




char act ion; 


// 


0 “ e 1 e a 1 ' 




159 






// 


1 ~ se t 




160 




C 








16 1 




int p f r ; 


// 


pointer to object to be modified 


162 




i 11 1 o b J ; 


// 


ptr. to obj. in obj. bnf. list 




163 




1 11 1 1 , J ; 








164 




int t addr ; 


// 


temp RAil addr of object 




165 




Int if'addr; 


// 


address of an object 




166 




e ha r a c t i ve ; 


// 


object in active display list 




167 












168 




1 f ( num <= 0) returii(-l); 




// check object number 




169 


/if; 








If: 


170 


if; 


Sequentially search the object ; 


structures for the desired 


If: 


171 


if; 


object. 






If: 


172 


if; 








IK/ 


173 




f or( pt r=0; ptr< NOBJ ; ptr + + ) i f ( vfjobj C p tr ] . vg^mim == uum) break; 




174 




1 f ( p tr> = NOBJ) return(-2); 




// object does not exist 


175 


/if: 








If: 


176 


if: 


Cheek the active display list for the object to be modified. 


If: 


177 










If:/ 
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i 




I 5 

1 ' ; 



i 






17a 




179 




180 




181 




182 




183 




184 




185 




186 




187 




183 




189 




190 




191 




192 




193 




194 




195 




196 




197 




198 




199 




200 




201 




202 




203 




204 




205 




206 




207 




208 




209 




210 




21 1 




212 




213 





214 



odclr = Sv£^o h J [ p t r ] . v^nmri ; 
to<l<3r = VjL!:o n I r 1 ( addr ) 10 i ; 

for ( obj= 1 ; ol>j< vgobj 1 is t [ 0] ; obj+ + ) i f ( vgobj 1 is t E obji?^33 = = taddr) break; 

Hake a eopy of the object and link the copy to the active 
display list. 






active = 0 ; 

If (obj < v^obj 1 Is t [ 0] ) 
t 

f or ( i = 0 ; i < VGOBJSIZ; i++) vgvorkbufCi] = 5f^(addr++); 

taddr = vgobj 1 Is 1 1 obj^?^3] ; // save fLATt acldr of the org. obj 

vgobj I is t [ objJ:''3] = vge ill r 1 ( v^wo rlibuf ) 1 0 1 ; 

actlve*^+; // set object active f la^ 

Hake the nod 1 f ica t ions to the org^iual object 

for( i=0; i< 16; i++) 

( 

if ( ( f ie lds>> i)G01) sv7itch(i) 

C 

case HOT: 

C 

for(j = 0;j<9;j++) vf^obj C p t r ] . vgro t E j ] = vg-f _ro t E J ] < < 4 ; 
vgo b J E p I r ] . vgro t E O] =1 01; 

break; 






// rotation matrix 



// 

vg f s r < < 4 ; 



case CSIl: 

( 

vgol*J E p t r ] . vgcsr 
break; 

3 

ease DXTR: 

C 

^"t'obj E p tr ] . vgx = vgf_dxr<<4; 
vgob J [ p 1 1 ' J . vgy = _>dyr < < 4 ; 



coordinate scale 



// X»Y,Z coordinates 



215 


vgobj E p tr ] . 


vgz = vgf_dzr<<4; 






216 


b !• e a k ; 








217 


) 








218 


case 10U-* 


// 


into ns i t y 


offset 


219 


( 








220 


vgobj E p tr ] . 


vg i o r = vg f — i o r < < 4 ; 






221 


break; 








222 


) 








223 


case ISR: 


// 


1 n t e ns 1 t y 


scale 


224 


{ 








225 


vgobj E p Ir] . 


vg i s r = ( vg f_isr<<4) 


ICl ; 




226 


break; 








227 


) 








228 


case riPH: 


// 


1 ighl pen 


ha 1 t 


229 


case HDB: 


// 


display b 1 i iik 


230 


case HEP: 


// 


enable light pen 


231 


{ 








232 


1 f ( ae t lon= = 


SET) 






233 


for (J= 


1 ; J< ELISTSIZ; j=4 7) 






234 


C 








235 


i f ( vgo b J E p t r ] . vge 1 e E j 3 = 


= 0) bi'eak; 




236 


vgobj E ptr ] . vge lef J-+-23 = 


1 1<< i ; 




237 


) 








238 


1 f ( ae t ion = 


= CLEAU) 






239 


f or ( J ■ 1 


: J<EL1STSIZ; j=+ 7) 






240 


C 








241 


1 f ( ^'gobJ E ptr3 . vge leE j 3 = 


=0) break; 




242 


vgo b J f p t r 3 . vge leE J+23 = 8 


( 1<< i) 10100000) 


243 


3 








244 


break; 








245 


3 








246 


d e f a u 1 t • 








247 


C 








248 


break; 








249 


3 








250 


3 








25 1 


3 








252 


If (active) vgobj 1 is t E obj^33 = taddr; 
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253 re t urii( 0 ) ; 

254 } 

255 

256 

257 

258 

259 

260 
26 1 
262 

263 

264 



265 

•266 >f: initiate the object buffer list and fill all constant 

267 ^ fie Ids . 

260 

269 

270 v{^o i n i t ( ) 

271 C 



2 f: 



272 




i 11 t i ; 


273 




1 n 1 J ; 


274 






275 




J = 1 ; 


276 




vgeurobj = 0; 


277 




vgelciiuin = 0; 


278 






279 


y:f: 




280 




Initialize the object list buff 


281 






282 






283 




vgobjlistCOJ = 1; 


284 




vgobjllslCl] = C30G00; 


285 






286 


y:^ 




287 




Initialize each object structur 


288 






289 






290 




for( i = 0; KNOBJ; i4-+) 


291 




C 


292 




vgob J [ i ] . vg 1 i or = 0^9014; 


293 




. vglcsr = 040023; 


294 




vgob j t i ] . vge le [ 03 = 044016; 


295 




) 


296 




re turn( vgen tr 1 ( vgob j list)) ; 


297 




J 









yy set first object number 
// ha 1 t 



ifi 

iny 



yy load intensity offset reg 
// load coordinate scale re^ 
// load H-VTl from stack 



vgp lo . c 



1 ’^include "vg-def.!!” 

2 



3 




in t 


vgc t r 1 ; 


yy 


control lei' file descriptor 


4 




i nt 


vgd 1 a 1 s ; 


yy 


dials fiJe descriptor 


5 




int 


vgd i s p ; 


yy 


display file descriptor 


6 




i n t 


vgf ns w; 


yy 


function sis’^itcli flic descriptor 


7 




ill t 


vgcnvt ; 


yy 


keyboard file desci'iptor 


8 

a 




int 


vgc nid ; 


yy 


c omiua nd file di scrip lor 


10 












1 1 




Coiiv-ert the display 


list address into a user space address 


12 


5 ft 










13 












14 


vgconvt ( 


a bp) 






15 




iut 


abp ; 


yy 


display list address pointer 


16 




C 








17 




int 


bp; 






18 




int 


base ; 


yy 


base block number of process 


19 




int 


page ; 


yy 


most sig 3 bits of address 


20 




int 


virtual; 


yy 


user space address 



21 



T.y 
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22 






if: 


23 




Convert the dinplay list address Into n real address 




24 






:^y 


25 








26 




page = (a bp 8 016) << 12; 




27 




abp = (abp>>3) 8 017776; 




28 




}>p = a bp i ; 




29 








30 






If: 


31 




Get the base block mimber of the process 


if: 


32 






ry 


33 








34 




v{^p lo ( Abase , GNVT— READ) ; 




35 








36 






if: 


37 




Convert the block UTinibcr into an address and convert the real 


if: 


38 




address into a nsci* space address. 


if: 


39 






^y 


40 








41 




virtual = (bp ~ (base<<06)) - 02000; 




42 




ret ur ii ( v i r t ua 1 ) ; 




43 




) 




44 








45 








46 








47 








48 








49 






if: 


50 




Convert the usej' space address into a real address in MAR 


if: 


5 1 


is 


f orijia 1 . 


if: 


52 






if:/ 


53 








54 


vge ntr l(addr) 




55 




int addr; // usei* space address pointer 




56 




C 




57 




int if:] addr; // lo^jical address 




58 




int raddr; // >*eal address 




59 




Int itiar; // VG memory address rcf^istcr 




60 




laddi‘ = addr; 




61 








62 






if: 


63 




Get the real address of the user space address 


if: 


64 






if:/ 


65 








66 




v|rpio( laddr ,Gfm_kRITE) ; 




67 




vcp i o ( Sr addr , CPlD^READ) ; 




68 








69 






If: 


70 




Convert the real address into IIAR format. 




71 






if:/ 


72 








73 




mar = (raddi*) >> 12; 




74 




ma r = S 016; 




75 




mar = 1 (raddi'<<3) ; 




76 




re tur n( mar ) ; 




77 




) 




78 








79 








80 








81 








82 








83 






if: 


84 




Open each of the minor devices and retain the file 


if: 


85 




descriptors. The minor device number and the file descriptor 


if: 


86 


if: 


associated ^vith it is5 


if: 


87 


if: 


0 vgcmd /dev/vg 


if: 


88 


if: 


1 vgd 1 s p /d e v/ vf^d p 


if: 


09 


if: 


2 vg“cntrl /dev/vgc t 


if: 


90 


if^ 


3 vg-fnsw /dev/vgfs 


if: 


01 


if: 


4 v£^dials /dev/v^di 


if: 


92 


3f: 


5 vg“cnvt /dev/vfjkb 


if: 


93 






if:/ 


94 








95 


vf^openC ) 




96 




C 





CO 



i 



97 

9a 

99 

100 
101 
102 

103 

104 

105 

106 

107 

108 
109 
1 10 
1 1 1 
1 12 
1 13 
1 14 
115 
1 16 
1 17 
1 18 
1 19 
120 
121 
122 

123 

124 

125 

126 

127 

128 



if ((v^cmd - opeiiC ”/dev/v^" , 2) ) < 0) // minor device 0 

( 

perrorC "open vg^emd error") ; 
re t ui’n( -7) ; 

3 

if ((vgdisp = o peii( "/do v/vs<l p ” , 2) ) < 0) // minor device 1 

C 

perrorC "open vgdis'p error") ; 
re I urn( —2 ) ; 

3 

if (Cvgctrl = openC "/de v/vf^c t " , 2) ) < 0) // minor device 2 

C 

perrorC "open v^ctrl error"); 
ret uriiC ~3) ; 

3 

if CCvgfnsw = openC "/de v/v|vfr? " , 0) ) < 0) // minor device 3 

C 

perrorC "open vgfns'w error"); 
ret uruC ~4) ; 

3 

if CCv^dials = opeiiC"/de v/ vgd 1",0)) < 0) // ini no r device 4 

C 

perrorC "open vg^dinls error"); 
re tnrnC -5) ; 

3 

if (Cvg-cuvt = op^enC "/do v/vgkh " , O) ) < 0) // minor device 5 

C 

pe rro r C "o pen vgciivt error"); 
re t iirnC ~6) ; 

3 

re t ur u( 0) ; 

3 



129 

130 

131 

132 

133 
134/^^c 

135 

136 

137 ^ 

138 

139 5#^ 

140 

141 

142 

143 

144 ^ 

145 

146 ifi 

147 

148 

149 

150 >'c 
15 1 

152 

153 



Ve c t o r Ge nc r a 1 Rea d / Vr i t e Ro u t i ne 

all coinnmn ica t ion with the vector f^eneral is handled via tfiis 
routine. The mode deter hi ines the action to he taken. 

The acceptable values for the mode are J 

1 - read using; minor device O 

2 ~ i t e us i iig* m i no i* device 0 

3 “ read using minor device 1 

4 — using minor device 1 

5 “ read using minor device 2 

6 - wv i t e us i jig m i no r device 2 

7 — read using: minor device 3 

8 - i te using minor device 3 

9 - read using minor device 4 

1 0 — WT i t e us i ng minor device 4 
1) “ read using; minor device 5 
12 - ^'/rite using minor device 5 

Re t ur nof—l is t he result of au addressi ng* error. 



1 5 4 vgp ioCbp.mode) 

155 int hp; // buffer address pointer 

156 int mode; // type I/O operation 

157 C 

158 lilt J^^ahp; 

159 



160 /^ 

161 Check buffer address. Do not perform the operation is the 

162 ^ address is zei*o . 

163 Jfc 

164 

165 ifCbp == 0) vgcrashC ) ; 

166 

167 abp = bj); 

160 switch Cmode) 

169 C 

170 case CrfD-KEADt // calc abs address 

171 C 









a: 






•tj 

% 

%/ 
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I 



172 

173 

174 

175 

176 

177 

170 

179 

100 

181 

182 

183 

1 84 

185 

186 

187 

108 

189 

190 

19 1 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

2 1 2 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 



if(read( nul»abp,2) < 0) 

perrorC "CMO— READ error") ; 
brcaE; 

) 

case CriD— I TE : 

r 

i f ( ^'rr i t e ( md ♦ n b p , 2 ) 

perrorC 
b r c a h ; 

) 

case DlS'^-HEADi // get interrupt registers 

C 

I f ( I •? li d ( vgd isj>,abp,166) < 0) 

I orrorC "DISP^READ error") ; 
b r c>! k ; 

) 

case DISP— WRITE* // sent display list 

C 

5 f ( vrr i t e ( vgd 1 sp , a bp , 1 0) < 0) 

perrorC "DISP—WRITE error") ; 
break ; 

) 



// 1 abs address 

< 0 ) 

c ri*o r " ) ; 



case CTRL—PcEAD: // get current vg register value 

C 

ifCread C vgc tr 1 » abp , 2) < 0) 

perrorC "CTRL_PJ:AD error"); 
break; 

) 

case CTRI>— VRIl'E: // sent systeia control words 

C 

i f C vs'r i t e C vgc lrl,abp.2) < 0) 

perrorC "CraL-WTUTE error") ; 
break ; 

) 



case FNS W_PlEAD * // ge t f unc s w i t c b va 1 ue 

C 

ifCread C vgf iisw, abp » 1 66) < 0) 

perrorC "FKSlv_READ error") ; 
break; 

3 

case FKSW_ WRITE: // not used 

( 

break; 

} 



case DIAL-PuEAD: // get dial positions 

C 

i f C read C vgd i a Is , abp , 1 66) < 0) 

perrorC "DIAL-HEAD error") ; 
break; 

3 



case DIAL-WHITE: // unused 

C 

break; 

3 

case CNVT-READ: // get base address 

C 

i f C rend C vgcnv t , abp , 2) < 0) 

perrorC "CNVT-READ error") ; 
break; 

3 

case KYBD-WRITE: // unused 

C 

break; 

3 
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247 de f au 1 t : 

248 C 

249 break; 

250 ) 

25 1 ) 

252 ) 

253 

254 

255 

256 

257 
253/5f^ 

259 Tormina te vector ^eiteral operations. Close nil minor devices 

260 ^ and make the process non real-time. 5 ^: 

26 i ^ }£; 

262 

263v^term( ) 

264 C 

265 1 f ( c 1 ose ( V 2 :d j sp) < 0) 

266 perror ( "C lose error"); 

267 ) 



vgr d wi’ i . c 



1 ^include "v^def.h" 

2 - i lie 1 ud e ” v^r e g . h " 

3 -^include “vgglob.h" 

4 

5 



6 


/i?: 








7 




Get the ten vector general dial 


va lues . 




8 

o 










V 

10 


v^d lal(abp) 






11 




1 11 1 a b p ; 


// ten word buffer pointer 




12 




C 






13 




Int 5;’'bp; 






14 




int i ; 






15 




if(abp==0) return(-6); 






16 




bp = a b p ; 






17 




vgp i o ( 8 v'g— f s , D 1 AL.-READ ) ; 


// get dial values from VG 




18 




for( i = 0; i< 10; 14-+) it;(bp+4-) = vg^dialC i]>>4; 




19 




) 






20 










21 










22 










23 










24 










25 










26 




get function switch values 






27 




the t h 1 r t y~ t wo va lues of 1 he VG 


function switches 




28 


5f: 


are returned to 1 he user via the 


tico woi-d buffer. 




29 




A bit that is set corresponds to 


a VG f unc tioii switch 




30 




that has been depressed. 






31 










32 










33 


vg^gre t f s a b p ) 






34 




iut abp; 


// 2 word buffer 




35 




C 






36 




int 5#^bp; 






37 




if(abp==0) return(~6); 






38 




bp = abp; 






39 




vgp 1 o ( Svg^f s , FNSV_HEAD) ; 


// get function switch values 





40 5f^(bp++) = vf^_fs; 

41 Jf^bp = vg_fs2; 

42 ) 

43 

44 

45 



71 



46 












47 












48 


/IK 










49 


:K 


Calculate the refresh rale and sent 


the value to the 


ve c t o r 




50 


Sc' 


general. The value .sent must be an 


integer between 


0 a lid 9 




51 












52 












53 


v^e 


lock(rate) 








54 




i u t r a tc ; 


// refresh rate 


1 n he r. t z 




55 




C 








56 




rate = 120/rate; 








57 




vgpio(8rate,CTPiL..b7lITE) ; 








58 




) 









v^gusr . e 



1 


^ 1 nc 1 ude 


'•vgdef .h" 






2 


^ 1 nc 1 ude 


" vgg 1 o b . h " 






3 

4 

5 


i nc liide 


"vgreg.h" 
















6 




character read routine 






7 




Heturus the oldest li.eyboard character in tlie 


e h;i r a e ter que ue . 


ii* 


8 




1 f no 


character has been input relui’ii “1. 




9 


ifC 










10 




NOTE: 


The character is filled by a keyboard 






1 1 




character interrupt causing vgkpivC) to be ca 


1 led . 




12 












13 













1 4 vg*ge t c a r ( ) 

15 C 

16 if(v{jkfla^ == 0) return(-l); 

17 v'gkflag: — ; // removed one character 

la ifCv^kquef] == NKOUE) v^kquefl = 0; 

19 re tur n( vg'kque [ v^kque fl++]>>8) ; 

20 ) 

21 

22 



23 

24 

25 

26 

27 

28 



Set/clear the blink mode ou the picture, object, or element. 



29 

30 vgb I iiik( type , nutn, ac t j oil) 



31 


c liar type ; 


// 


0 — picture 






32 




// 


1 - object 






33 




// 


2 — e 1 e rue n t 






34 












35 


int iiurn; 


// 


0 - pie ture 






36 




// 


object or ele me ii t 


11 urn 


37 












38 


char action; 


// 


0 “ c 1 e a 1 * 






39 




// 


1 - set 






40 


r 










41 












42 


s wi teliC type ) 










43 


C 










44 


ease PIC? 


// 


SET/CLEAR blink 


p i c t lire 


45 


C 










46 


re turn( 


vgp iemod ( 0 1000 , ac t ion) ) ; 






47 


) 










48 


case OBJ •* 


// 


SET/CLEAR blink 


on 


o b J e c t 


49 


C 










50 


re lurn.( vgobjmod( mini. 


, 0 ICOO , ac t ion) ) ; 






51 












52 


case ELEJ 


// 


SET/CLEAR blink 


on 


ele me n t 


53 


C 











n urn ’ 



* num' 
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I 



54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 



re t iir n( vg^e le mod ( niim , 0 1 000 , ac t Jon)) 






Modify the rotation matrix of the ol>joct. The return values 
are t ho s e of t he o b J e c t mo dificatiou routi lie . 






vg ro t a t e ( iinm, x , y , z ) 



69 


int nmn; 


// 


object 


?i umber 






70 


doub 1 e X ; 


// 


rad \ a n 


ro t a t i o n 


a bout 


X— axis 


71 


double y; 


// 


r a d i J j n 


ro to t ion 


nbou t 


Y-axis 


72 


d o ub 1 e z ; 


// 


rad i a n 


r o t a t ion 


about 


Z- axis 



73 

74 

75 

76 

77 

78 

79 

80 
61 
82 

83 

84 
83 
86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 
101 
102 

103 

104 

105 



inz,cosx, cosy, cos z; 



C 

double siii(); 
doub 1 e cos ( ) ; 
double sinx,siny,j 
siiix = sin(x); 
s iny = s iii( y) ; 
s i DZ = s i n( z ) ; 
cosx = CO s ( x) ; 
cosy = cos(y); 
cosz = cos ( z ) ; 
vgf^rotFO] = (cosz^cosy 

vg f _r ol[l3 = (cos y'i‘s i iiz 

vgf_rotC2] = ~s 1 nyJ?^cos>:'';'2047 ; 
vgf_rotC3] = ~s i uZ'':'COsr^-2C47 ; 
vgf_rot[4] = cosx5^cosz^'2047 ; 

vgf— rot[5] “ sinx^'2047; 

vgf^rotFO] = (siny-r^cosz + s i nx^cos y^i's 1 iiz ) ^2047 ; 

vgf«.rot[7] = ( s i u> ''S 2 iiz - s i ux^'Cosy5?^cosz ) ^^2047 *, 

vgf— rot[8] = cocx^cosyJj'2047 ; 
re t ur n( vgob J mod ( uum, 01)); 

) 



s i iix^s i iiy^'S i nz ) >^^2047 ; 
s i nx^^'s i ny^^^cosz ) 5:^2047 ; 






Modify the X, Y, and Z coordinates of the object. T)ie range 
^ of values are from —2043 (0 177777) Ihrougli 2047' (07777). ^ 

^ 'fhe return codes are those of the object modification routine. ^ 



vgc o o r d ( nura , x , y , z ) 



106 


int num; 


// 


object n umb e r 


107 


i n t X ; 


// 


X c oord i na t e 


108 


int y; 


// 


Y coor d i na 1 e 


109 


int z ; 


// 


Z coord i na te 


1 10 


C 






1 1 1 


vgf_dxr = x; 






1 12 


vgf «dyr = y; 






1 13 


vgf^dzi* = z; 






1 14 


re t urii( vgobj mod ( num. 


04) ) ; 




1 15 


) 







1 16 
1 17 
1 18 

1 19 

120 
121 
122 

123 

124 
123 
126 
127 
123 



/Jf: 

:f: 

5fs 



Modify the intensity offset of the object. The range of values ^ 
is fromO to 1. Tlie return codes are those of the object ^ 

IDO dificatiou routine. ^ 



vg i o f s e I ( num , va 1 ) 
iiit uum; 



// object number 
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129 

130 

131 

132 

133 

134 

135 

136 

137 
130 

139 /'f*: 

140 'ft 

141 

142 

143 ^ 

144 

143 isca 1 ( num, VD 1 ) 



146 




int nura; 




// object number 


147 




do ub 1 e va 1 ; 




// i n t e ns 1 t y scale 


148 




C 




149 




vg:f_isr = va 1^1*2047; 






130 




re turn( v’^objmod( uum, 020) ) 


; 




151 




3 






152 










153 










134 










135 










156 










157 










150 




Ko d i f y t he coord 1 na t e sea 


1 e of the 


object. The range of values 


159 




are 0 to 1. 31ie return codes are 


t ho s e o f t he o b J c c ( 


160 




mod 5 f ic a 1 lo n routine. 




161 










162 










163 


vgc s r ( niun , va 1 ) 






164 




int minj; 


• 


// object numl'^er 


165 




do ub le va 1 ; 




// coord inale scale value 


166 




C 






167 




v/^f_csr = val^»t2047; 






168 




i*e t urn( vgo bj mod ( ntim , 02) ) ; 






169 




3 






170 










171 










172 










173 










174 








♦ • 


175 










176 




Set /c 1 e a r 1 he 1 i gh t pe n ho o ka L i 1 i t y of the object or e 1 e me n t 


177 




llie light pen halt, light 


pen interrupt, and light pen sense 


178 




switch are all treated ns 


a s i ng i e 


i:nit to be sct/cleared. 


179 




Return codes are those of 


the modification routine concerned. 


180 










181 










182 


vglpen( type , nutn, ac 1 ion) 






183 




char t >1^0 ; 


// 1 • 


-object 


184 






// 2 


- e I emeu t 


185 










186 




int nuin; 


// object or element number 


187 










188 




char ac t ion; 


// 0 • 


- clear 


189 






// 1 ■ 


-set 


190 




C 






191 




s w'i t ch( t ype ) 






192 




C 






193 




case OB J J 




// set/clear object 


194 




C 






195 




re turn ( vgobj mod ( num, 020400 


, ac t ion) ) ; 


196 




3 






197 




case ELE? 




// set /clear element 


198 




( 






199 




re t ur n( vge 1 o mo d ( num, 020400 . 


.actioii)) ; 


200 




3 






201 




) 






202 




re t ur n( 0) ; 






203 




3 







double vn 1 ; // intensity offs?ct value 

C 

vgf_lor = val5ft2047; 

re t u.rn( vgobj ruod( mini, 010) ) ; 

3 



Modify the intensity scale of the object. The raufre of values 
is froinO to 1. Tlie return eodes are those of the objeet 
niod i f ica t ion routine. 






T. 






Hi. 
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X- X 




I I 



204 

205 

206 
207 
20G 

209 

210 ^ Get the light peii Interrupt registers, niie light pen 

211 -fi interrupt flag is cleared so another light pen interrupt raay 

212 ^ he accepted by the light pen interruj)t Imiidler. 

2 1 3 

214 

215 vgge t lpn( abp) 

216 Int a bp; // 8 v7oi*d buffer pointer 

217 C 

218 int 'l^bp; 

219 int i; 

220 bp = abp; 

221 for( i=0; 1<7; i++) 

222 ^^^(bp+^■) = vgipbufti]; 

223 vg Ip flag = 0; 

224 ) 
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